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Theory  and  mathematics  of  RADARC 


RADARC 

HF  IONOSPHERIC  PREDICTION  PROGRAM 
for  OTH  RADAR 


1.)  Introduction 


The  OTH  radar  prediction  model  was  developed  by  the  Naval  Research  Laboratory  (NRL) 
by  contract  to  the  Institute  for  Telecommunication  Sciences  (ITS)  and  Lucas  Consulting.  The 
program  is  designed  for  use  as  a  tool  in  predicting  or  analyzing  existing  system  performance  for 
OTH  radar  facilities  that  use  the  HF  (3-30  MHz)  portion  of  the  electromagnetic  spectrum  and 
the  ionosphere  as  a  propagation  medium.  The  prediction  program  can  be  used  in  the  design  and 
siting  of  an  HF  radar  installation  as  well  as  in  the  frequency  and  scan  management  of  an 
operational  site.  This,  however,  does  not  limit  the  usefulness  of  program  RADARC  to  radar 
applications  alone.  Organizations  interested  in  HF  broadcasting  and  communication  will  find  that 
this  prediction  program  can  be  used  to  evaluate  many  of  the  pertinent  propagation  problems 
affecting  the  reliability  of  the  particular  HF  facilities.  Some  of  the  more  common  needed 
parameters  in  HF  radar,  broadcasting  and  communication  operations  are  the  expected  limits  for 
the  take-off  and  arrival  angles,  height  of  reflection,  area  coverage  and  signal-to-noise  ratio 
associated  with  given  frequencies  and  times.  Program  RADARC  predicts  the  above  parameters 
among  others  and  enables  the  user  to  ascertain  revisions  necessary  in  frequency  complements, 
antenna  selection,  power  requirement  and/  or  site  selection  in  order  to  maintain  optimum  HF 
system  performance.  1 

This  documentation  is  presented  to  assist  the  users  of  program  RADARC  to  understand  its 
general  flow  and  to  explain  the  essential  calculations  in  the  procedures  involved.  A  continuous 
effort  is  being  made  to  update  the  model  and  the  procedures  employed;  thus  all  portions  of  the 
program  are  subject  to  revision. 

The  model  used  in  the  program  RADARC  for  predicting  the  expected  performance  of 
ionospheric  radar  systems  is  the  result  of  the  philosophy  and  work  of  many  investigators  and  no 
attempt  will  be  made  to  credit  all  of  the  sources  used.  This  documentation  is  intended  to  be  a 
description  of  a  computer  program  for  users  and  not  a  monograph  on  HF  ionospheric 
propagation. 


Manmcript  qiproved  luly  IS,  1993. 
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2.)  Background 


This  section  is  intended  to  provide  the  reader  with  a  general  background  used  in  the  basic 
philosophy  and  development  of  the  program  RAD  ARC. 

Numerous  organizations  both  governmental  and  private  have  been  employing  high  frequencies 
to  communicate  between  remote  long  distance  point-to-point  stations.  It  was  recognized  early 
that  these  types  of  communication  systems  were  subject  to  marked  variations  in  performance  and 
it  was  hypothesized  that  most  of  these  variations  were  directly  related  to  changes  occurring  in 
the  ionosphere.  Considerable  effort  was  made  in  the  U.S.  as  well  as  other  countries  to  develop 
research  teams  for  the  purpose  of  investigating  ionospheric  parameters  and  determining  their 
effect  on  the  nature  of  radio  waves  and  the  associated  reliability  of  HF  circuits.  The 
investigators  soon  realized  that  effective  ope  ation  of  long  distance  HF  systems  increased  in 
proportion  to  their  ability  to  predict  variations  in  the  ionosphere  because  it  allowed  them  to  select 
optimum  frequencies,  antenna  systems,  and  other  circuit  parameters  that  would  capitalize  on  these 
variations.  With  the  encouragement  provided  by  these  findings  it  was  decided  that  a  great  deal 
more  raw  ionospheric  data  was  necessary  in  order  to  develop  models  that  could  be  used  to 
adequately  anticipate  ionospheric  conditions  affecting  HF  propagation.  Worldwide  vertical 
incidence  ionosondes  were  established  and  now  measure  values  of  foE,  fJFl,  fJF2,  etc.  as 
described  in  a  later  section.  Worldwide  noise  measurement  records  were  started  and  steps  were 
taken  to  record  observed  variations  in  signal  amplitudes  over  various  HF  paths.  The  results  of 
this  research  established  tnat  ionized  regions  ranging  from  approximately  80  to  600  Km  above 
the  earth's  surface  provide  the  medium  of  transmission  for  electromagnetic  energy  in  the  HF 
spectrum  (3-30  MHz)  and  that  most  variations  in  HF  system  performance  are  directly  related  to 
changes  in  these  ionized  regions,  which  in  turn  are  affected  in  a  complex  manner  by  solar 
activity,  seasonal,  and  diurnal  variations  as  well  as  latitude  and  longitude. 

The  Radio  Propagation  Unit  of  the  U.  S.  Army  Signal  Corps  provided  a  great  deal  of 
information  and  guidance  on  the  phenomena  of  propagation  with  HF  in  1945  by  issuing  Technical 
Report  No.  6*.  By  1948  a  treatise  on  ionospheric  radio  propagation  was  published  by  the  Central 
Radio  Propagation  Laboratory  of  the  National  Bureau  of  Standards^.  This  document  outlined  the 
"state-of-the-art"  of  predicting  expected  maximum  usable  frequencies  (MUF),  depicted  practical 
problems  of  ionospheric  absorption  and  covered  in  detail  acceptable  methods  of  determining  the 
MUF  for  any  path  at  any  time,  and  took  into  account  the  various  possible  modes  of  propagation 
by  applying  principles  which  were  found  to  work  in  practice.  The  model  used  to  make  the  MUF 
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predictions  employed  the  "two  control  point"  method  and  assumed  the  ionosphere  to  be 
concentric  with  reflection  occurring  only  from  the  regular  E-  and  F2-layers. 

In  1950  Laitinen  and  Haydon*  of  the  U.  S.  Army  Signal  Radio  Propagation  Agency  furthered 
the  science  of  predicting  HF  system  performance  by  developing  empirical  ionospheric  absorption 
equations  and  combining  this  with  the  theoretical  ground  loss,  free  space  loss,  and  antenna  power 
gain  so  that  expected  field  strengths  could  be  anticipated  for  radio  signals  reflecting  from  the  E- 
and  F-regions  considering  the  effects  of  solar  activity,  and  seasonal  and  diurnal  extremes.  The 
accumulative  techniques  and  methods  presented  in  the  above-mentioned  literature  and  many  other 
studies  were  then  combined  to  establish  effective  manual  methods  for  predicting  the  expected 
performance  of  HF  communication  systems;  however,  these  methods  were  laborious  and 
time-consuming  even  if  only  estimates  for  the  MUF  and  FOT  (.85  MUF)  were  needed.  To 
alleviate  this  problem,  electronic  computer  routines  were  developed  by  such  organizations  as 
Stanford  Research  Institute"*  and  the  Central  Radio  Propagation  Laboratory*,  all  of  which  were 
based  upon  the  established  manual  prediction  methods.  The  latter  program  gave  the  first 
computerized  technique  that  incorporated  the  numerical  coefficient  representation  of  the 
ionospheric  characteristics.  However,  only  the  expected  MUF  and  FOT  were  predicted.  In  1962 
a  report  was  issued  outlining  a  computer  routine  that  used  the  most  recent  improvements  in  the 
theory  of  performance  predictions,  combining  the  more  predictable  ionospheric  characteristics 
with  circuit  parameters  to  calculate  expected  HF  system  performance;  MUF-FOT,  system  loss, 
reliability,  etc.(Lucas)‘ 

By  1960,  it  was  recognized  that  high  frequency  radar  systems  could  detect  targets  at 
considerable  distances  and  consideration  was  given  to  the  idea  of  applying  the  already  developed 
computer  programs  used  to  predict  the  ionospheric  effect  on  HF  communication  to  the  HF  radar 
system.  At  the  outset  simple  revisions  were  made  to  the  HF  prediction  program  including 
doubling  the  ionospheric  losses  associated  with  a  given  point-to-point  path. 

The  predicted  signal-to-noise  ratios  obtained  by  these  modifications  were  compared  with  actual 
backscatter  amplitudes  and  the  results  were  encouraging.  However,  there  were  obvious 
defxiencies  in  the  model  that  appeared  immediately.  To  list  a  few: 

1.  Mirror  reflection  from  the  E-  and  F2-layers  was  not  satisfactory. 

2.  The  FI -layer  was  not  included  as  a  separate  layer. 

3.  The  sporadic  E-layer  was  not  included. 

4.  The  take-off  angle  was  not  dependent  on  frequency. 

5.  Predicted  losses  were  in  error  when  transmission  by  the  E-layer 


s 


was  nearly  specular. 


It  was  possible  to  revise  the  prediction  model  to  at  least  predict  all  of  the  above  deficiencies. 
The  development  of  the  parabolic  distribution  of  electron  density  model  laid  down  in  ITSA-1'* 
was  a  first  step.  In  this  model  the  electron  density  profile  along  the  path  was  assumed  to  be 
adequately  represented  by  two  parabolic  layers,  i.e,  E  and  F2.  The  height  of  maximum 
ionization,  semi-thickness,  and  electron  density  were  derived  from  locations  near  the  points  of 
actual  reflection  along  the  path  instead  of  the  classical  "two-control-point"  method  previously 
used  in  the  calculation  of  the  upper  limit  of  frequencies  and  transmission  loss. 

The  program  RAD  ARC  is  a  direct  descendent  of  the  ITSA-1  model  and  does  consider  the  E„ 
E,  FI,  and  F2  reflecting  regions  in  the  calculation  of  expected  system  performance  for  HF  OTH 
RADAR’.  The  mathematics  and  method  of  generating  the  virtual  height  profile  from  the  three 
parabolas  is  that  of  lONCAP’.  Other  modifications  such  as  the  revision  to  transmission  loss  at 
lower  layers,  obscuration  by  the  E,  -layer,  etc.  will  be  discussed  in  detail  in  later  portions  of  this 
report. 

3.)  General  description  of  the  radar  model 


The  NRL  HF  OTH  model  is  based  upon  the  large  volume  of  ionospheric  data  compiled  over 
the  years  by  the  Institute  of  Telecommunication  Sciences  and  is  in  the  evolutionary  line  of  the 
methods  and  computer  models  used  in  the  analysis  of  communication  systems.  However,  the 
emphasis  in  the  NRL  OTH  model  is  on  the  description  of  the  ionosphere  along  a  great  circle 
covered  by  the  transmitted  signal  rather  than  the  description  of  the  electromagnetic  environment 
at  a  single  point  as  is  the  purpose  of  many  other  models. 

The  prediction  model  RADARC  is  an  upgrade  of  RADARB  as  described  by  Headrick, 
Thomason,  et  al’.  The  mathematics  of  the  geometry  and  the  numerical  evaluation  of  the 
coefficients  associated  with  the  ionospheric  parameters  are  not  included  in  this  report  as  they  are 
thoroughly  covered  in  the  above  report.  The  ionosphere  representation  and  development  are  those 
of  lONCAP’  and  will  be  explained  in  detail  in  later  sections.  The  program  is  no  longer  just  a 
'two  control  point'  prediction  routine,  but  will  allo\v  up  to  ten  control  areas  sampled  any 
reasonable  arbritary  evenly  spaced  distance.  It  will  allow  calculations  of  from  1-hop  to  4-hops 
of  propagation  by  the  E„  E,  FI ,  F2,  or  mixed  modes  using  take-off  angles  from  0  to  45  degrees 
to  sample  the  coverage  area  for  the  specified  azimuth  from  the  transmitter.  The  program  will 
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calculate  the  signal-to-noise,  earth  clutter-to-noise,  and  the  ionospheric  spread  Doppler  clutter 
as  described  by  Elkins’*  ”  The  program  is  very  versatile  with  a  plain  language  input  file  and 
highly  documented  output  files,  as  will  be  shown  in  later  sections  on  the  input  necessary  to 
execute  the  program  and  the  expected  output. 

Those  readers  not  interested  in  the  some  of  the  mathematical  and  physical  development  of  the 
program  should  go  to  part  II.  The  prediction  mathematics,  data  and  calculations  are  summarized 
in  the  following  sections.  The  first  sections  describe  the  development  of  the  predicted  ionosphere 
(h'F  trace).  The  next  sections  describe  the  prediction  and  development  of  the  transmission  loss 
associated  with  the  predicted  virtual  ionogram  and  the  later  sections  describe  the  methods  of 
predicting  the  coverage  of  the  radar  using  the  radar  equation  and  the  predicted  noise 
environment. 

The  sections  that  immediatley  follow  will  take  you  through  the  prediction  routine  RAD  ARC, 
the  data  used  to  develop  the  ionospheric  representation,  the  mathematics  used  in  the  virtual  height 
vs  frequency  trace  development,  and  the  prediction  of  the  transmission  losses.  These  sections  are 
from  unpublished  works  of  John  L.  Lloyd,  Donald  L.  Lucas,  and  George  W.  Haydon’. 


4.)  Virtual  height  ionogram  technique  and  data 


The  prediction  technique  is  a  ray-path  model  using  only  data  available  for  all  values  of  the 
solar  cycle,  all  times  of  the  day,  all  months  of  the  year,  and  all  geographic  locations.  The 
mathematics  for  describing  the  ionosphere  in  virtual  height  and  frequency  resembles  those  of 
lONCAP’.  The  model  assumes  the  vertical  distribution  of  electron  density  with  height  can  be 
modelled  using  a  parobolic  distribution  for  each  layer.  These  parabolas  are  described  by  using 
the  predicted  critical  frequency  as  the  value  at  the  nose  and  the  predicted  semi-thickness  as  its 
width.  The  height  of  the  parabola  is  assumed  to  be  at  the  predicted  height  of  maximum.  These 
parobolas  are  then  overlaid  upon  each  other  in  true  height  to  form  a  true  height  profile  of 
electron  density  (figure  1).  The  corresponding  virtual  height  is  found  by  integrating  through  this 
true  height  profile  (figure  2).  The  virtual  height  profile  thus  generated  is  now  used  for  all  ray- 
path  determination  and  calculation  of  angles  of  radiation.  Figure  2  should  be  inspected  carefully 
as  this  is  the  most  difficult  part  of  the  prediction  routine  and  the  most  lengthy  to  explain.  Most 
other  calculations  depend  to  some  extent  on  this  ionospheric  description.  The  following  sections 
explain  the  data  and  method  used  to  generate  the  predicted  ionosphere. 
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VCKTICAL  ntEQOntCV 


Figure  1  True  Height  profile  using  three  overlapping  parabolas 


Figure  2  True  height  profile  and  virtual  heights 
Some  discussion  will  be  given  about  each  contributing  layer  as  the  mathematics 
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are  explained  to  help  in  understanding  what  is  taking  place  in  the  ionospheric 
model  development. 
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5.)  Generating  a  virtual  height  profile 


The  ionosphere  exhibits  considerable  systematic  variability.  If  the  minute-to-minute  and  the 
day-to-day  variations  within  the  month  are  averaged  the  remaining  temporal  variations  (ie; 
diurnal,  seasonal,  and  solar  become  fairly  well  behaved  and  predictable. 

It  is  the  purpose  of  this  section  to  discuss  parameters  available  to  describe  this  quiet 
ionosphere  and  to  review  the  available  measurements  and  associated  predictions  for  each  region 
of  the  ionosphere. 

Available  ionospheric  parameters,  the  use  of  these  parameters  to  predict  electron 
density  profiles,  and  the  use  of  the  profiles  to  predict  the  geometry  and  losses 
associated  with  skywave  propagation  will  be  discussed  in  the  sections  to  follow. 

5.1)  The  D-region 

Information  on  electron  densities  in  the  lower  ionosphere  (50-90  Km)  is 
very  inadequate  for  use  in  a  prediction  model  such  as  this,  primarily  as 
a  result  of  limited  observation  directed  toward  prediction  use.  The  technical  problems  of 
observations  are  formidable,  and  the  interpretation  of  measurements  extremely  difficult. 

No  D-region  paramenters  are  directly  included  in  the  prediction  model  described  in  this  report. 
The  effect  of  the  D-region  is  accounted  for  in  two  ways.  First,  the  electron  density  distribution 
is  extrapolated  from  the  E-region  using  an  exponential  decrease  to  the  height  of  70  Km  (Figure 
2).  Second,  the  effect  of  absorption  is  included  in  the  loss  equation. 

5.2)  The  E-Region 

A  large  volume  of  vertical-incidence  ionosonde  data  has  been  collected  over  about  three  solar 
cycles,  and  many  features  of  the  E-region  are  therefore  well  known.  The  minimum  virtual  height 
of  the  E-region  and  the  variation  of  maximum  electron  density  within  this  region  as  a  function 
of  time  and  geographic  location  are  readily  obtained  from  the  ionograms.  The  phenomenology 
of  sporadic-E  has  been  investigated,  but  classification  of  sporadic-E  types  remains  unresolved. 
The  effects  of  different  types  of  sporadic-E  on  oblique-incidence  radio  propagation  are  not 
established;  as  a  result,  the  compilation  of  meaningful  statistics  to  form  the  basis  of  predictions 
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is  difficult. 

The  E-region  characteristics  that  have  been  systematically  scaled  from  the  vertical-incidence 
ionosonde  records  include: 

foE  The  critical  frequency  of  the  ordinary  component  of  the  E  layer; 
i.e.,  that  frequency  at  which  the  signal  from  the  ionosonde  just 
penetrates  the  E-layer. 

h'E  The  minimum  virtual  height  of  the  E-layer,  measured  at  the  point 
where  the  trace  becomes  horizontal. 

foE,  The  highest  observed  frequency  of  the  ordinary  component  of 
sporadic  E  (EJ. 

h'E,  The  minimum  virtual  height  of  the  sporadic-E  layer,  measured  at 
the  point  where  the  trace  becomes  horizontal. 

f^E,  The  blanketing  frequency;  i.e,  the  lowest  ordinary  wave  frequency 
at  which  the  Es  layer  begins  to  become  transparent,  usually 
determined  from  the  minimum  frequency  at  which  ordinary  wave 
reflections  of  the  first  order  are  observed  from  a  higher  layer. 

The  regular  E-layer  is  predicted  using  three  parameters:  the  monthly  median  value  of  critical 
frequency  (foE),  height  of  maximum  ionization  of  the  layer  (h,„E),  and  ratio  of  h„E  to  semi¬ 
thickness  (y„E).  Worldwide  numerical  coefficients  of  monthly  median  f„E  are  available  for 
computer  applications  in  terms  of  geographic  latitude,  longitude,  and  universal  time.  The 
coefficients  (Leftin)'”  were  derived  from  measurements  taken  during  a  year  of  minimum  and  a 
year  of  maximum  solar  activity.  A  linear  interpolation  is  used  to  obtain  estimates  at  other  phases 
of  the  solar  cycle.  An  examination  of  monthly  median  h'E  observations  indicates  negligible 
seasonal  or  geographic  variations  in  the  minimum  virtual  height  of  E-region  ionization.  A  typical 
value  is  1 10  km.  The  D-region  ionization  is  included  as  an  exponential  decrease  below  the  E- 
layer;  an  h„E  of  1 10  km  and  an  hn,E/y„E  ratio  of  5.5  are  assumed;  i.e.,  y„E  =  20  km. 

Numerical  coefficients  are  also  available  for  each  month  representing  the  median  and  decile 
values  of  f„Es  (or  foE)  in  terms  of  a  modified  magnetic-dip  angle,  longitude,  and  universal  time 
(Leftin)".  These  numerical  maps  are  from  data  taken  during  periods  of  solar  activity  minimum 
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and  solar  activity  maximum.  Linear  interpolation  is  used  for  other  levels  of  solar  activity. 
Unless  other  information  is  available,  the  virtual  height  of  the  sporadic-E  layer  is  assumed  to  be 
110  km. 


5,3)  The  F-Region 

The  vertical-incidence  ionosonde  network,  with  its  long  series  of  measurements  over  much 
of  the  world,  provides  the  basis  for  F-region  predictions  (Martyn)’^.  The  following  parameters 
have  been  systematically  scaled  from  the  vertical  ionosonde  records  (Piggott  and  Rawer)'^, 
although  some  stations  do  not  report  all  of  them: 

f<f  2  The  critical  frequency  of  the  ordinary  component  of  the  F2-layer; 

i.e.,  that  frequency  at  which  the  signal  from  the  ionosonde  just 
penetrates  the  F2-layer. 

M(3000)F2  The  factor  for  converting  vertical-incidence  critical 
frequencies  to  oblique  incidence  for  a  distance  of 
3000  km  via  the  F2-layer. 

foFl  The  critical  frequency  of  the  ordinary  component  of  the  FI -layer; 
i.e.,  that  frequency  at  which  the  signal  from  the  ionosonde  just 
penetrates  the  FI  layer. 

h'F  The  minimum  virtual  height  of  the  F-layer;  i.e.,  the  minimum 
virtual  height  of  the  night  F-layer  and  the  day  FI -layer.  It  is 
measured  at  the  point  where  the  F  trace  becomes  horizontal.  (In 
earlier  years  the  minimum  virtual  height  of  the  night  F-layer  was 
often  combined  with  that  of  the  day  F2-layer,  the  combined 
tabulation  being  designated  hT2.  In  these  cases,  the  minimum 
virtual  height  of  the  Fl-layer,  h'Fl,  was  tabulated  separately.) 

h'F2  The  minimum  virtual  height  of  the  F2  layer,  measured  at  the  point 
where  the  F2  trace  becomes  horizontal. 
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hpF2  The  virtual  height  of  the  F2  layer  corresponding  to  a  frequency  f, 
where  f=.834  foF2.  This  is  based  on  the  assumption  of  a  parabolic 
ionization  distribution,  which  is  usually  considered  justified  as  an 
approximation  to  the  height  of  maximum  ionization  of  the  F2  layer. 


The  F2  layer  is  described  by  three  parameters;  monthly  median  value  of  critical  frequency 
(foF2),  height  of  maximum  ionization  (h„F2),  and  a  ratio  of  h„F2  to  semithickness  y„F2. 
Monthly  median  values  of  f„F2  and  the  M(3000)F2  for  two  solar  activity  levels  are  available  as 
numerical  coefficients  in  terms  of  a  modified  magnetic-dip  angle,  longitude,  and  universal  time 
(CCIR)’.  The  solar  activity  dependence  is  accounted  for  by  linear  interpolation.  The  height  of 
maximum  ionization  is  determined  by  first  estimating  the  virtual  height  at  0.834  f^2;  i.e.,  h„F2. 
The  geometric  formula  used  is; 

(1) 


hpF2  =  -176  +  1490/M(3000)F2 


The  expected  accuracy  of  the  formula  is  within  6  percent  (Shimazaki)*'*.  The  form  of  equation 
(1)  is  governed  by  the  geometry  of  a  wave  propagating  in  a  spherically  symmetric 
earth-ionosphere  medium.  The  176  is  the  bulge  of  the  earth  for  a  3000  km  path.  The  1490  is 
an  approximation  of  the  quantity 

(la) 


5  =  .417  Pic 


where  P'  is  the  group  path  (slant  range)  and  k  is  the  usual  secant  correction  factor.  The  basic 
equations  used  are 

(lb) 

fat  =  sec^ 

(lc) 

=  [M(3000)F2][f„F2] 

(ld) 

sec  (|)  =  1/2  P7(h,„F2  -I-  176). 


Let  fv  =  0.834  foF2.  Equation  (la)  is  the  secant  "corrected"  law;  equation  (lb)  is  the 
definition  of  the  'M'  factor;  and  equation  (Ic)  is  a  trigonometric  identity  .  (Snell's  law,  Martyn's 
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theorem,  and  Breit  and  Tuve's  theorem  are  all  implicit  here.  Any  correction  to  equation  (1) 
should  be  in  the  factor  1490.  The  height  of  maximum  ionization  is  then  found  by  removing  the 
retardation  caused  by  lower  region  ionization;  i.e., 

KF2  =  h^-R.  (2) 


The  formulas  for  'R'  (Budden)'^  depend  upon  the  electron  density  profile  assumed  for  the 
lower  layers.  For  example,  D-E  ionization  as  a  parabolic  layer  with  an  exponential  decrease  at 
the  lower  heights,  the  E-F  valley  as  a  linear  profile,  and  the  FI,  when  present,  is  assumed  to  be 
a  linear  or  parabolic  ledge.  The  ratio  (h„F2/y„,F2)  is  available  as  a  function  of  the  sun's  zenith 
angle  (positive  for  afternoon,  negative  for  morning),  geomagnetic  latitude,  and  solar  activity,  as 
shown  in  figure  3  (Lucas  and  Haydon)“.  These  contour  were  developed  from  75th  meridian  data 
of  computerized  true  height  reductions  of  ionospheric  recordings  (Wright)^*. 


The  FI -layer  is  not  always  present.  When  present,  it  is  described  by  three  parameters-the 
critical  frequency  (foFl),  the  height  of  maximum  ionization  (h„Fl),  and  the  semithickness  (yo,Fl). 
Numerical  maps  of  f<,Fl  are  available  (Rosich  and  Jones)".  These  maps  provide  foFl  as  a 
function  of  solar  zenith  angle,  are  continuous  throughout  the  year,  and  are  linear  with  solar 
activity.  The  FI -layer  fades  out  at  a  maximum  value  of  the  sun's  zenith  angle.  The  height  of 
maximum  ionization  (h„Fl)  appears  to  depend  upon  the  zenith  angle  of  the  sun  and  is  estimated 
in  this  report  as  follows: 

(3) 


h„Fl  =  165  +  .6428x 


h„Fl  -  height  of  maximum  ionization  of  the  FI  layer  in  kilometers 
X  -  zenith  angle  of  the  sun  in  degrees. 

The  ratio  of  h„,Fl  to  the  semithickness  of  the  F  1-layer  is  assumed  to  be  4.0.  The  presence  of 
the  Fl-layer  is  primarily  a  function  of  the  sun's  zenith  angle,  but  also  depends  upon  time  of  year, 
a  modified  magnetic-dip  angle,  and  solar  activity  level.  The  values  of  h„Fl  and  y„Fl  are  adjusted 
so  that  the  Fl-layer  smoothly  merges  into  the  other  regions. 

It  must  be  noted  that  the  values  of  h„,Fl  and  y„Fl  are  tentative  and  require  adjustment. 
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Figure  3  Contours  of  the  ratio  h„F2/y„F2-  top  high  SSN  bottom  low  SSN. 


depending  upon  the  ionization  of  the  F2  layer  in  the  development  of  an  electron  density  profile. 

The  above  ionospheric  parameters  are  selected  from  those  available  with  emphasis  on 
obtaining  consistent  parameters  for  the  generation  of  an  adequate  electron  density  profile  for 
estimating  the  ray-path  geometry  of  high-frequency  skywave  signals.  Other  ionospheric 
parameters  which  are  available  but  which  are  not  used  include: 

Maps  of  foF2  with  a  nonlinear  dependence  on  solar  activity  are  not 
used  because  the  maps  of  the  associated  parameter  M(3000)F2  are 
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available  only  with  a  linear  dependence  on  solar  activity. 

Neither  hT,F2  nor  h'F,Fl  maps  are  used  because  the  frequency 
at  which  the  height  applies  is  not  measured  and  it  is  impossible  to 
adjust  for  lower  region  retardation.  Maps  of  foF2,  M(30(X))F2,  and 
the  ratio  h„F2/y„F2  are  from  the  same  data  base  and  are 
statistically  and  physically  consistent. 

Maps  of  fi,Es  are  not  used  because  values  are  available  only  for  a 
low  solar  activity. 

6.)  Electron  density  profile  model 


Frequency  versus  virtual  height  traces  of  the  ordinary  wave  as  available  on  vertical 
incidence  ionograms  can  be  converted  into  electron  density  profiles  by  a  standard  reduction 
program.  These  profiles,  including  geographic,  diurnal,  seasonal,  and  solar  cycle  variations,  are 
generated  between  heights  of  70  km  and  the  height  of  maximum  of  the  F2  layer,  h,„F2.  The 
electron  density  is  given  by  the  relationship 


N  =  1.24  xl&%^ 


(4) 


N  electrons  per  cubic  meter 


f^i  plasma  frequency  MHz. 

The  profile  is  generated  in  four  steps:  D-E  region,  F2-layer,  E-F2  valley,  and  an  FI  ledge. 
This  form  of  electron  density  profile  evolved  over  the  years.  A  fixed  reflection  height  for  the 
E-  and  F2-layers  was  used  in  the  original  computer  program  (Lucas  and  Haydon).  Then 
parabolic  layers  for  both  the  E  and  F2-layer  were  used  (Lucas  and  Haydon)'®  and  (Barghausen 
et  al)^*.  The  FI -layer  was  added  and  the  profile  was  generated  by  taking  the  maximums  of  these 
intersecting  parabolas  (Haydon  and  Lucas)'*.  The  resulting  profile  is  then  a  computerized  version 
of  this  manual  method  of  analyzing  measured  ionograms  (Ratcliffe)'’.  In  all  of  these  programs, 
the  electron  density  is  only  implicit  in  the  functional  form  of  the  equations  used  for  virtual 
heights  or  ground  distance.  The  method  described  here  gives  an  explicit  form  for  the  profiles 
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(Figure  2). 


6.1)  D-E  Region 

The  ionospheric  parameters  assumed  available  are  the  monthly  median  critical  frequency  of 
the  E-layer  (f^E,  MHz),  height  of  maximum  ionization  of  the  layer  (h„E  =110  km),  and  ratio 
of  hnE  to  semithickness  (h„,E/y„E  =  5.5). 

The  nose  (figure  2)  of  the  layer  is  parabolic  f,4(h)  is  the  plasma  frequency  at  a 

(5) 

2  [  h„E-h  ,  1 

/>)  = 

height  h.  The  ionization  is  assumed  to  decrease  exponentially  starting  at  the  lower  part  of  the 
E  region  (h„=  h„E  -.85  y^E),  with  the  constants  chosen  so  the  slope  of  the  profile  is  continuous 
at  this  point.  (A  discontinuous  slope  results  in  a  cusp  in  the  virtual-height  ionogram  derived  from 
the  profile.)  The  equations  are 

(6) 

fnih)-(f,EfF^  exp[a(*-70.)] 

a  =  2(hj:  -  hJ/(.2775  (yJEf) 

=  6J21/y^ 

=  .3062  y  for  =20 

where 

=  [1.  -  (.85)^]exp[-a(/t„£  -.85}?„£-70.)] 

This  equation  gives  a  value  of  at  70  km  as  (foE)^  F^.  With  h„E  as  1 10  km  and  y„  as  20 
km,  this  profile  yields  a  virtual  height  of  100  km  at  .04  (foE)^  and  of  110  km  at  0.52 
(foE)2, corresponding  roughly  to  typical  measured  values. 
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6.2)  F2-Layer 


The  ionospheric  parameters  assumed  available  are  the  monthly  median  critical  frequency  of 
the  F2  layer  (foF2,  MHz),  height  of  maximum  ionization  (h„F2,  km),  and  the  ratio  of  h„F2  to 
semithickness  of  the  layer  (y„,F2). 

(7) 

,  ,  h„F2-h  , 

6.3)  E-F2  Transition  Region 

Only  the  total  density  in  this  region  is  modeled,  not  the  shape.  This  is  normally,  but  not 
necessarily,  a  valley.  It  is  represented  by  a  line  from  a  frequency  f^  at  the  F2  layer  to  a 
frequency  f^  at  the  E  layer: 

(8) 


fyih  -  kji(h,  -  h^] 

where 

fu  =  xJoE 
L  =  xJoE 

K  =  imf) 


Typical  values  for  the  constants  x„  and  Xy  are  .98  and  .8516,  respectively.  If  =  1 , 
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there  is  no  valley. 


6.4)  FI-Layer 

The  FI -layer  is  considered  to  be  a  ledge  from  the  F2- layer  to  the  E-F  valley  (or  possibly  to 
the  E-layer).  If  the  FI  ledge  exists,  it  is  described  by  three  parameters:  the  critical  frequency 
(f^l,  MHz),  the  height  of  maximum  ionization  (h„Fl,  km),  and  the  semithickness  (yn,Fl,  km). 

The  FI  ledge  may  be  either  a  linear  or  a  parabolic  layer.  If  the  height  of  maximum  ionization 
of  the  FI  ledge  is  less  than  the  height  of  the  F2-layer  at  the  frequency  of  f^Fl,  the  parabolic  layer 
shape  is  used.  If  the  height  of  maximum  ionization  of  the  FI  ledge  is  greater  than  the  height  of 
the  F2-layer,  then  the  height  of  maximum  ioniration  of  the  FI  ledge  is  reduced  to  the  F2-layer 
height.  This  procedure  assures  that  a  cusp  in  a  virtual  height  trace  occurs  at  the  critical  frequency 
of  the  FI  ledge.  The  slope,  SI,  of  the  linear  layer  shape  using  the  FI  ledge  parameters  (f^Fl, 
h„Fl,  y^Fl)  is  compared  to  the  slope,  S2,  of  the  F2-layer  at  the  FI  critical  frequency.  If  the 
difference  of  the  slopes  is  positive,  the  linear  ledge  is  used;  if  negative,  the  parabolic  layer  shape 
is  used. 

This  procedure  assures  that  the  FI  ledge  will  appear  in  a  virtual  height  trace  and  that  the  FI 
ledge  will  gradually  disappear  into  the  F2-layer  as  the  difference  of  the  slopes  approaches  zero. 
When  this  difference  is  small,  the  resulting  ionogram  will  be  L-shaped. 

Also,  the  Fl-layer,  when  parabolic,  can  dominate  as  foFl  approaches  foF2,  as  occasionally 
happens,  especially  in  the  Northern  latitudes.  The  equations  are: 


(9) 


h2=hj^  -  -  (fj’l  I  f/2f 


and  slopes 

S2  =  2(tJ^f  (hJ^h2)/(yJ7f 
SI  /yj'l 


for  a  linear  ledge  (i.e.,  h2  <  h„Fl  and  S2  <  SI) 
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f^^(h)  =  Sl(h-h2  +  yjn) 


(10) 


and  for  a  parabolic  ledge 


/^(h)  = 


(11) 


[1  -  ((h„Fl  -  hOyJ'lf] 

Sample  numerical  maps  of  the  variation  of  plasma  frequency  with  height,  geographic  location, 
and  local  mean  time  developed  for  limited  time  periods  (Jones  and  Stewart)^®  are  not  applicable 
to  other  time  periods.  The  approximate  electron  density  profile  described  above  uses  predictions 
of  ionospheric  parameters  now  available  for  all  time  periods  and  includes  variations  with  latitude, 
longitude,  local  time,  month,  and  solar  activity.  Both  the  profile  and  its  slope  are  continuous 
except  perhaps  at  the  predicted  critical  frequencies  (see  Figure  2).  Although  the  methods  are 
primarily  for  use  with  predicted  monthly  median  values,  they  are  applicable  to  daily  ionospheric 
parameters.  The  electron  density  profile  (in  tabular  form)  can  be  used  in  ray-tracing  programs 
or  to  generate  virtual-height  ionograms,  or  in  the  propagation  prediction  programs. 

7.)  Virtual  height  ray  path  model 

This  section  describes  a  simple  compulation  method  for  obtaining  all  the  single-hop  ray  paths 
through  an  ionosphere  described  b>  an  electron  density  profile.  It  uses  the  classical  relationships 
between  the  virtual-height  ionograms  and  the  oblique  path.  However,  Martyn's  equivalence 
theorem  is  used  in  a  "corrected"  form  as  described  by  Lloyd*.  First,  the  ionogram  is  obtained 
using  numerical  integration  techniques.  Then  reflectrices  are  ot)  ained  as  a  single  table 
incorporating  all  ray-path  information.  Finally,  the  correction  t(^  N.  ir’vn  s  theorem  and  a  table 
look  up  and  interpolation  procedure  are  used  to  find  the  ray  sets  whuh  describe  the  propagation 
for  a  particular  operating  frequency. 

7.1)  Virtual  height  ionograms 

Virtual  heights  for  the  ordinary  trace  are  found  from  the  electron  density  profile  by 
numerically  integrating  the  equation 
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where 


(12) 


K 

h'{f^  =  K  *  j  (‘Wv)  dh 

K 

=  [I  -fs^(h)/f,‘r'^ 

fy  selected  vertical  sounding  frequency; 
ho  lowest  true  height  of  the  profile,  i.e.,  70  km; 
h'  virtual  height  of  the  profile; 
h,  true  height  corresponding  to  fy; 
h  true  height  of  reflection; 
fi'  group  index  of  refraction; 
fjq  plasma  frequency. 

The  area  is  found  using  a  Gaussian  integration  technique  (see  Figure  4).  The  effect  of  the 
cusp  at  h  can  be  lessened  by  using  a  nonlinear  transformation  from  the  interval  [ho  ,  h^  ],  to  [1, 
1].  The  transformation  and  integration  equations  are: 

(13) 

hj  =  (h,  -  hoffl  -T'”(l  -  X)’”] 
i^'j  =  n'(hj .  L)(i  -  xr' 

N 

j  »  1 


hj  =  true  height  corresponding  to  (Wj  ,  Xj); 

Xj  =  Gaussian  abscissa; 

Wj  =  Gaussian  weight; 

N  =  number  of  Gaussian  terms  (at  least  40)  for  electron  density 
profiles 
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Figure  4  Gaussian  integration 


A  forty-point  Gaussian  integration  was  found  to  be  adequate  when  the  electron  density  profile 
was  sampled  at  true  height  intervals  of  4  km  and  the  vertical  soundyig  frequencies  were  selected 
at  intervals  of  0.2  MHz. 

The  Gaussian  method  tends  to  smooth  out  the  "kinks"  in  the  resulting  ionogram  introduced 
by  using  a  tabular  form  of  the  electron  density  profile.  When  m  =  1 ,  it  corresponds  to  the  usual 
Gaussian  formula  for  an  arbitrary  interval. 

When  the  FI -layer  is  not  present,  a  faster  integration  method  is  available.  The  D-E  region 
values  are  taken  from  a  table  which  was  calculated  by  the  Gaussian  integration  using  h„E  =110 
and  y„E  =  20.  The  F2  layer  is  calculated  using  model  segments. 
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8.)  Reflectrix  model 


Skywave  radio  propagation  paths  may  be  described  by  a  set  of  parameters  known  as  raysets 
(Croft)^’,  For  most  HF  radar  and  communication  applications,  this  consists  of  operating 
frequency,  takeoff  angle,  virtual  height  of  reflection,  true  height  of  reflection,  and  ground 
distance.  The  basic  inputs  are  true  and  virtual  heights  as  a  function  of  vertical-incidence 
frequency. 

The  ray  paths  are  calculated  using  the  following  simplifying  assumptions: 


1 .  Horizontal  and  azimuthal  variations  in  the  ionospheric  electron  density  profiles 
are  negligible  for  each  hop  (on  a  multihop  path,  different  sample  areas  are  used). 

2.  The  magnetic  field  may  be  ignored. 

3.  The  ionosphere  is  spherically  symmetric  to  the  earth. 

With  these  simplifications,  the  equivalence  between  a  given  frequency  on  an  oblique  path  (f^b) 
and  a  vertical  incidence  frequency  (f^,)  with  the  same  vertical  height  specified  by  Snell's  law  is 

(14) 


fob 


where 

4)t  is  the  angle  between  the  apparent  ray  path  and  the  normal  to  the  earth  at 
the  true  height  of  reflection. 

By  simple  geometry,  the  virtual  height  of  the  oblique  path  is  related  to  the 
takeoff  angle  A  by  (figure  5). 

(15) 

acosA  =  (a  +  ft  )  Sin  (j) 

where 


A  =  takeoff  angle  of  the  ray, 

a  =  earth's  radius, 

h'ob  =  virtual  height  of  the  oblique  path, 

()>'  =  is  the  angle  between  the  virtual  ray  and  the  normal  to  the 

earth  at 

Martyn's  theorem  for  a  plane  ionosphere  specified  the  ray  path  by  the  equality  of  the  virtual 
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Figure  5  Oblique  raypath  geometry  for  three  layers. 


height  of  the  oblique  path,  with  the  virtual  height  of  the  ionogram  at  the  equivalent  frequency  f,. 
For  a  curved  ionosphere,  this  leads  to  a  consistent  error  at  higher  frequencies  for  thicker  layers. 
The  Breit  and  Tuve  theorem  states  that  the  time  taken  to  transverse  the  actual  path  is  the  same 
as  that  which  would  be  taken  to  transverse  the  equivalent  path  in  free  space.  Both  theorems  are 
corrected  in  the  following  model  by  an  empirically  derived  correction  (Lloyd)’  factor  which 
depends  only  on  the  electron  density  profile  and  the  curvature  of  the  ionosphere: 

(16) 

A'oi.  =  A'. 

ffl  “  “ 


Note..h'ob  has  changed  definition, 
where 

foF2  is  the  F2  critical  frequency, 
h'  is  the  virtual  height  corresponding  to  fy. 
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h  is  the  true  height  of  reflection 


This  correction  has  errors  of  less  than  one  percent  as  compared  with  the  distances  calculated 
by  a  ray-trace  program  based  on  Haselgrove's  equation  method  (Haselgrove)“(  Finney)” 

Table  I  Relationship  between  vertical  data  (lonogram)  and  oblique  data 
(Reflectrix) 


lonogram  values 


fy-MHz 

.91 

1.82 

2.72 

2.83 

2.95 

3.06 

3.17 

3.29 

3.40 

h,-Kltl 

74.2 

89.0 

98.0 

99.0 

100.0 

101.3 

102.9 

105.0 

110.0 

h'  -Km 

83.9 

103.0 

114.0 

114.6 

116.3 

119.6 

124.4 

132.1 

175.7 

Angs . 

Reflectrix  oblique  frequencies  - 

MHz 

deg. 

0 

6.04 

10.99 

15.68 

16.26 

16.82 

17.36 

17.87 

18.33 

18.53 

5 

5.25 

9.75 

14.06 

14.59 

15.11 

15.61 

16,09 

16.53 

16.80 

10 

4.01 

7.03 

11.17 

11.60 

12.04 

12.46 

12.88 

13.27 

13.57 

20 

2.47 

4.84 

7.18 

7.47 

7.76 

8.05 

8.34 

8.62 

8.88 

30 

1.77 

3.49 

5.21 

5.42 

5.64 

5.85 

6.07 

6.28 

6.48 

40 

1.40 

2.77 

4.14 

4.32 

4.49 

4.66 

4.83 

5.00 

5.17 

50 

1.18 

2.35 

3.51 

3.66 

3.81 

3.95 

4.10 

4.24 

4.39 

60 

1.05 

2.09 

3.13 

3.26 

3.39 

3.52 

3.64 

3.77 

3.91 

90 

.91 

1.82 

2.72 

2.83 

2.95 

3.06 

3.17 

3.29 

3.40 

The  model  uses  equations  14  and  15  to  generate  Table  I.  The  first  row  is  the 
vertical  incidence  frequency  fy  in  megahertz.  The  second  row  is  the  true  height  of 
reflection,  h,;  the  third  row  is  the  virtual  height  of  reflection  h'  and  the  rows 
following  are  the  equivalent  oblique  operating  frequencies  for  ray  paths  with  corresponding 
takeoff  angles  at  the  transmitter. 

When  the  information  such  as  that  contained  in  Table  I  is  plotted  in  constant  frequency 
contours  of  virtual  reflection  height  and  distances  as  in  Figure  6,  the  displayed  contours  are 
called  reflectrices  (Lejay  and  Lepechinsky)”.  At  each  given  operating  frequency,  the  area 
coverage  is  found  by  interpolating  in  Table  I  for  the  desired  ray  paths.  This  procedure  yields  the 
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Table  II  Rayset  for  a  single  operating  frequency. 


RAYSET  FOR  FREQUENCY  =  10.00  MHz 


DISTANCE 

ANGLE 

VIRTUAL 

TRUE 

MODE 

fv 

2240.69 

0.00 

99.81 

86.03 

E 

1.64 

2132.85 

50 

99.85 

86.07 

E 

1.64 

2031.62 

1.00 

100.03 

86.19 

E 

1.65 

1848.52 

2.00 

100.66 

86.68 

E 

1.68 

1689.82 

3.00 

101.70 

87.46 

E 

1.73 

1553.09 

4.00 

103.08 

88.51 

E 

1.79 

1431.40 

5.00 

104.33 

89.49 

E 

1.87 

1323.49 

6.00 

105.49 

90.43 

E 

1.96 

1147.44 

8.00 

108.15 

92.59 

E 

2.18 

1012.11 

10.00 

111.13 

95.02 

E 

2.42 

906.11 

12.00 

114.34 

97.62 

E 

2.68 

819.51 

14.00 

117.39 

100.15 

E 

2.96 

1024.54 

16.93 

181.35 

109.96 

E 

3.40 

1817.87 

16.93 

359.68 

153.64 

1 

3.40 

1213.47 

18.00 

234.01 

158.34 

1 

3.73 

1121.66 

20.00 

237:04 

163.87 

1 

4.01 

1194.88 

22.00 

280.89 

174.09 

1 

4.31 

1496.14 

22.52 

374.11 

182.41 

1 

4.40 

2184.89 

22.52 

595.08 

210.45 

2 

4.40 

1349.37 

24.00 

354.18 

215.75 

2 

4.68 

1209.20 

26.00 

340.38 

221.60 

2 

4.96 

1133.13 

28.00 

343.83 

228.35 

2 

5.23 

1094.45 

30.00 

358.10 

236.32 

2 

5.50 

1084.19 

32.00 

383.12 

246.06 

2 

5.77 

1127.25 

34,00 

432.03 

259.43 

2 

5.05 

1942.44 

35.70 

874.76 

290.49 

2 

6.30 

desired  reflectrix  for  the  given  frequency  in  the  form  of  a  table  of  raysets  as  in  table  II. 
Calculations  are  not  necessary  at  each  frequency  as  all  the  desired  information  is  contained  in 
Table  I.  For  two-hop  modes,  a  table  of  refla:trix  information  (as  in  Table  I)  is  generated  for 
the  second-hop  sample  area,  and  at  the  given  operating  frequency,  a  table  of  rayset  information 
is  generated  as  in  Table  II.  The  two-hop  modes  are  found  by  matching  the  takeoff  angle  of  the 
second  hop  with  the  arrival  angle  of  the  first  hop.  Note  that  there  has  been  no  mention  of 
individual  layers  (E,  FI,  or  F2)  since  the  electron  density  profile  was  generated.  The  ionosphere 
is  treated  as  a  single  region  by  the  program,  and  all  possible  mode  combinations  are  generated. 
In  order  to  keep  the  traditional  layer  nomenclature,  the  ray  paths  are  named  according  to  where 
their  equivalent  vertical  frequencies  lie  (e.g.,  below  foE);  thus  the  modes  may  be  E-E,  F2-F2, 
E-F2  according  to  the  label  of  each  hop.  Since  the  sporadic-E  modes  are  assumed  to  exist  with 
some  degree  of  probability  with  reflection  at  a  constant  height,  the  rayset  information  is  the  same 
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Figure  6  Reflectrix. 

for  each  operating  frequency  and  there  is  no  need  to  generate  the  equivalent  of  Table  I  for  the 
E,  mode. 

Using  the  results  of  table  II  the  ground  distance  can  be  obtained  by  interpolation  for  any 
vertical  angle  of  take-off  for  a  specified  operating  frequency  ie;  10  MHz  in  the  example.  The  on 
azimuth  ionospheric  coverage  by  this  rayset  is  819.51  to  2240.69  km. 
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9.)  Ionospheric  loss  model 


This  section  describes  the  equations  and  data  used  to  calculate  ionospheric  losses  associated 
with  a  mode  of  propagation.  The  model  is  intended  to  cover  the  frequency  band  from  3  to  30 
MHz.  All  modes  which  result  from  a  complete  electron  density  profile  are  covered,  as  well  as 
sporadic-E  modes.  Lower  decile,  median,  and  upper  decile  values  of  field  strength,  signal,  or 
signal-to-noise  ratio  can  be  determined  by  the  metho^.'  iescribed.  The  theoretical  background 
and  method  of  measurements  are  given  in  the  N  lal  on  Ionospheric  Absorption  Measurements 
(Rawer)“.  The  equations  described  below  are  intended  to  be  used  on  a  worldwide  basis,  and  are 
limited  by  the  available  worldwide  prediction  data  base. 

The  equations  are  based  on  the  CCIR  252-2  loss  equation^*  using  a  philosophy  that 
modifications  are  made  only  when  measured  values  demand  a  change.  The  CCIR  loss  equation 
was  primarily  derived  from  F2  low-angle  modes  with  operating  frequencies  not  greater  than  the 
EOT.  For  these  conditions,  there  is  no  need  to  modify  the  equation.  For  E-layer  low  frequency 
modes  which  do  not  penetrate  very  deep,  two  modifications  were  necessary.  A  correction  factor 
to  account  for  less  E-layer  bending  was  added  [equation  (25)].  Since  an  arbitrary  electron  density 
profile  can  be  used,  the  true  height  of  reflection  may  be  written  into  the  D-layer  absorbing 
region,  resulting  in  lower  absorption.  This  has  been  accounted  for  by  modifying  the  collision 
frequency  factor  in  the  denominator  [Equation  (27)].  In  addition  to  the  D-region  losses  due  to 
absorption,  there  may  be  losses  at  the  area  of  reflection  if  the  ionization  of  the  region  is 
insufficient  to  reflect  all  the  radio  energy.  This  loss  increases  as  frequency  increases,  and  starts 
to  be  significant  as  the  frequency  nears  the  MUF,  and  increases  rapidly  above  the  MUF.  Since 
this  loss  is  closely  associated  with  the  MUF,  the  day-to-day  variation  of  the  MUF  within  the 
month  can  be  used  to  estimate  the  variation  of  these  losses  with  frequency.  The  10%  and  90% 
values  of  the  distribution  are  taken  as  1.15  and  .85  respectively  in  RADARC.  This  loss  due  to 
partial  failure  of  ionospheric  support  is  referred  to  as  an  "over-the-MUF'‘  loss  [Equation  (29)]. 
Since  the  basic  loss  equations  contain  the  average  effect  of  deviative  absorption,  an  additional 
loss  is  only  added  to  the  high-angle  modes  (including  those  F  modes  on  the  upper  side  of  the  E 
or  FI  MUF  [Equation  (28)].  Sporadic-E  mode  losses  are  determined  as  are  the  regular  E  modes, 
but  the  deviative  loss  is  zero  and  the  over-the-MUF  loss  is  what  is  usually  termed  reflection  loss 
(Equation  (30)]. 

The  equations  referred  to  provide  monthly  median  losses  when  used  with  monthly  median 
parameters  of  the  ionosphere.  In  order  to  evaluate  the  performance  of  a  communication  system, 
the  distribution  of  these  losses  within  the  month  is  needed.  These  distributions  have  been  given 
as  tables  of  transmission  loss  distributions  (CCIR  252-2)^  and  are  uniform  for  operating 
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Table  III  Excess  system  loss  (dB)  for  high  (N  or  S)  latitude  paths. 


(Equinox  -  Paths  >  2500  km) 


01 

-04  LMT 

04-07  LMT 

G.M. 
Lat. Deg 

Median 

s, 

Su 

Median 

S: 

Su 

0-40 

9.0 

4.0 

9.0 

9.0 

4.0 

2.6 

40-45 

9.3 

4.1 

10.0 

9.3 

4.1 

8.5 

45-50 

9.6 

4.2 

11.0 

9.6 

4.2 

9.4 

50-55 

9.9 

4.4 

12.1 

9.9 

4.3 

10.3 

55-60 

10.4 

4.5 

13.2 

11.0 

4.6 

10.6 

60-65 

12.9 

5.7 

15.5 

14.2 

5.9 

10.8 

65-70 

12.7 

5.7 

14.3 

14.6 

6.6 

10.6 

20-25 

10.8 

4.6 

13.1 

11.9 

5.3 

9.8 

75-80 

10.0 

4.8 

11.0 

10.2 

4.6 

9.0 

frequency  and  for  mode  type.  For  geomagnetic  latitudes  below  40  degrees,  these  tables  are  for 
frequencies  less  than  the  FOT  and  are  the  variation  of  the  losses  about  the  CCIR  252-2  equation 
based  on  83  circuit  years  of  data  (Laitinen  and  Haydon)^.  The  rest  of  the  tables  correspond  to 
the  losses  above  this  difference  within  the  Arctic  and  Polar  regions  above  40  degrees 
geomagnetic  latitude.  The  sporadic-E  obscuration  loss  and  the  F2  over-the-MUF  loss  are  sub¬ 
tracted  from  the  table  value.  The  residuals  of  table  III  are  then  added  to  the  losses  at  each 
frequency  for  each  mode.  Auroral  losses  form  the  main  part  of  the  residual  table.  Decile  values 
of  losses  are  determined  by  calculating  the  E,  obscuration  loss  and  the  over-the-MUF  losses  using 
the  proper  decile  values  of  the  E,  and  E,  FI ,  or  F2  mode  MUFs.  It  should  be  especially  noted 
in  this  model  that  the  over-the-MUF  losses  limit  the  successful  operation  of  radio  systems  at  the 
higher  frequencies;  i.e.,  the  mode  is  always  there,  but  the  losses  become  sufficiently  high  that 
the  system  becomes  inoperative.  Both  the  original  table  and  the  derived  values  are  decibels  with 
respect  to  the  loss  equations  given  here.  If  other  loss  equations  are  used,  the  distribution  tables 
must  be  adjusted.  The  derivation  of  these  loss  equations  is  given  below. 

All  relationships  derived  from  measurement  must  include  all  the  various  effects  of  the 
ionosphere.  Electron  density,  collision  frequency,  magnetic  field,  or  focusing  effects  are  only  "a 
means  to  an  end"  of  the  analysis  and  may  not  necessarily  describe  the  physics  involved.  The  loss 
equations  described  herein  are  referenced  to  basic  transmission  loss  in  free  space: 
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(17) 


L^f  =  20  log  (4nP'rk) 

=  32.45  +  20  log  P'  +  20  logf^ 

where 


P'  =  virtual  ray  path  length  in  km,  (group  path), 

=  oblique  frequency  in  MHz. 

The  additions  to  the  CCIR  ionospheric  loss  will  be  normalized  to  that 
equation. 

10.)  D-E  Region  ionospheric  losses 


The  absorption  in  the  D-E  regions  of  the  ionosphere  is  usually  the  major  loss(after  free  space) 
in  radio  wave  propagation  via  the  ionosphere.  To  describe  this  effect,  Martyn's  theorem  relating 
vertical  and  oblique  path  and  the  quasi-longitudinal  approximation  to  the  absorption  loss 
(Budden)'*  are  used: 

(18) 


L(fj  =  m  cos  <t). 


w,)  =  c 


NJ\i  dh 


(19) 


where 

C  =  constant, 

ho=  height  at  bottom  of  ionosphere, 
h(fv)=  heijiht  of  reflection  for  frequency  f,, 
N  =  N(h)  electron  density  profile, 

u  =  u(h)  collision  frequency, 
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H  =  refractive  index, 

fob  =  oblique  sounding  frequency, 

fv  =  vertical  sounding  frequency, 

=  gyrofrequency,  (4,  the  longitudinal  component  of  gyrofrequency, 
is  usually  put  into  the  equation) 

<J)o  =  angle  of  earth's  normal  to  ray  path  at  100  km. 

Equation  (19)  can  be  put  into  the  form  of  Budden'* 


L(fJ  =  (v)(h V 

where 

V  =  effective  collision  frequency 
h'  =  virtual  height  of  reflection, 
hp  =  phase  height  of  reflection, 
c  =  velocity  of  light. 


(20) 


Since  hp  is  bounded  and  h'  is  not,  there  is  a  strong  dependence  on  frequency  which  cannot 
be  explained  simply  by  an  inverse-frequency-squared  law.  The  usual  method  of  analysis  has  been 
to  write  (19)  in  the  form  (definition  of  the  global  absorption  parameter  A) 

(21) 


Most  analyses  of  absorption  are  based  on  estimated  A(f„).  This  has  sometimes  been  done 
by  assuming  non-deviative  absorption  only,  and  thereby  trying  to  ignore  the  frequency 
dependence.  When  this  is  done  with  a  small  data  base  and  no  adjustment  is  made  for  the 
frequency  dependence,  the  results  can  be  misleading  (and  possibly  inaccurate). 

The  CCIR  absorption  equation  is  based  upon  the  U.S.  Army  Signal  Radio  Propagation 
Agency  study  (Laitinen  and  Haydon)\  with  a  modification  for  lower  frequencies  by  Lucas  and 
Haydon'* ,  Figure  7  shows  the  modified  function. 

The  exponent  of  the  frequency  term  (f,  +  fji)  and  values  for  the  terms  (v/lnf  and  A(f,)  were 
determined  by  least  square  curve  fitting.  The  oblique  loss  measurements  were  normalized  to 
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2  5  to  20  30 

FREQUENCY  +  GYRO- FREQUENCY- MHz 


Figure  7  Skywave  non-deviative  absorption  component  of  system  loss. 


virtual  loss  measurements  to  give  a  standard  comparison  method,  as  well  as  to  expand  the  data 


base,  by  the  equation 

— - - - - sec  ® 
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The  data  used  were  for  F-layer  modes  only  .  The  fitted  equation  is 


(23) 


^•(4) 


6112  I  sec4)^ 


That  is,  the  averaged  value  of  Aff^)  is 


where 


A=677,2  I 


(24) 

I  =  .04  +  exp  (-2.937  +  0.8445 fJE) 


The  formula  for  absorption  index  I  is  in  terms  of  foE  which  includes  the  variation  in  zenith 
angle  and  solar  activity.  This  formula  is  an  inversion  of  that  formerly  used  to  obtain  fJE  from 
I.  There  have  been  attempts  to  modify  and  replace  equation  (23)  by  independent  researchers. 
Schultz  and  Gallet^  (implemented  in  ITS-78  (Barghausen  et  al.))^*  used  the  methods  described 
by  Piggott”  to  describe  A  without  frequency  dependence  (non-deviative  absorjmon)  on  a  smaller 
data  base  than  was  used  to  derive  Equation  (23),  but  did  not  add  the  frequency  dependence  sug¬ 
gested  by  Piggott  (essentially  the  same  as  Equation  (20),  but  for  a  parabolic  E-layer).  George^ 
has  developed  an  absorption  equation  using  an  A(Q  which  has  an  implicit  (h'-  h  )  curve.  The 
method  of  supplementing  equation  (23)  described  below  was  based  upon  area  coverage  and  radar 
backscatter  data  and  was  developed  in  two  steps,  first  to  correct  equation  (23)  for  E-layer  modes 
and  then  for  frequency  dependence  (deviative  absorption).  It  is  essentially  based  upon  the 
suggestion  in  Piggott  and  in  George,  but  with  the  advantage  of  having  the  electron  density 
profiles  available  on  a  worldwide  basis.  (See  also  Rawer“,  Bibl  et  aP‘,  and  Fejer^^,  for  further 
discussion.)  The  absorption  equation  (23)  contains  an  averaged  value  of  A(f„)  for  F2-layer  modes, 
i.e.,  the  effects  of  E-region  electron  density  on  non-deviative  absorption  collision  frequency  (and 
magnetic  field  effects,  etc.)  were  averaged  in  the  curve  fitting  process.  Therefore,  a  correction 
for  E-layer  modes  was  derived; 
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4  =  A  +  «  log,  (XJ  , 


(25) 


where 


Lf-  is  the  loss  correction  factor  for  E  modes; 

A  =  1.359  for  f„E  >  2  MHz, 

A  =  1.359  (foE  -  0.5)  /  1.5  for  0.5  <  f„E  <  2  MHz, 

=  0.0  for  fJE  <  0.5  MHz; 

B  =  8.617  for  f^E  >  2  MHz, 

=  8.617  (f„E  -  0.5)  /  1.5  for  0.5  <  f„E  <  2  MHz, 

=  0.0  for  foE  <  0.5  MHz; 

X,  =  fv  /  f„E  for  h  >  90  km, 

=  fv(90)  /  foE  for  h  <  90  km; 
h  =  true  height  of  reflection; 
fv  =  equivalent  vertical  sounding  frequency. 

The  equations  for  E-mode  and  F-mode  losses  assume  that  the  mode  goes  through  the 
absorbing  region  (true  height  of  reflection  above  95  to  100  km).  Equation  (25)  represents  the 
effect  of  E-layer  losses  which  were  included  in  Equation  (23).  When  the  true  height  of  reflection 
is  below  90  km,  which  will  happen  with  the  complete  electron  density  profiles,  the  use  of 
Equations  (23)  and  (25)  will  give  losses  much  higher  than  those  observed.  The  absorption 
should  reach  a  maximum  and  then  decrease  as  the  operating  frequency  is  lowered.  Theoretically 
the  absorption  reaches  a  maximum  at  the  height  where  (v/27r^  -I-  fw).  However  the  electron 
density  profile  available  does  not  represent  the  lower  ionosphere  adequately,  so  this  behavior  has 
been  introduced  into  the  model  in  an  ad  hoc  manner  by  replacing  the  constant  value  of  {yllnf 
-  10.2)  by  a  calculated  value.  When  the  true  height  of  reflection,  h,  varies  between  70  and  88 
km  the  value  of  (v/27t)^  varies  between  40,  the  value  it  would  have  at  a  height  of  61  km,  and 
10.2,  the  value  it  would  have  at  a  height  of  64  km.  The  equation  for  the  height  hv  is  (h„  does 
not  correspond  to  any  physical  parameter) 


A,  =  «  +  3(h-70)/18. 


(26) 
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The  equation  for  effective  collision  frequency  is 


(v(hj/an)^  =  (vJ2%f  exp(-2(h,-60)/m 


(27) 


where 

(vJ2n)^  =  63.07 


H  =  4.39. 


The  equation  (27)  gives  realistic  values  for  v.  The  transformation  from  h  to  h^  was  derived 
using  measured  values  of  field  strength  on  the  Kogani  to  Akito  path  (Japan)  at  operating 
frequencies  of  2.5  and  5.0  MHz,  for  the  year  1970. 

Since  a  complete  electron  density  profile  is  used,  any  mode,  high-  or  low-angle,  will  be 
considered.  To  account  for  the  deviative  (and  spreading)  losses  of  the  high-angle  modes,  the 
following  procedure  is  used.  Deviative  losses  are  considered  to  be  averaged  into  Equation  (23) 
for  those  modes  with  reflection  heights  less  than  that  at  the  layer  MUF.  For  modes  with 
reflection  heights  greater  than  that  at  the  layer  MUF  and  for  modes  just  past  the  E-F  cusp,  a 
deviative  loss  term  is  added.  The  equation  is  based  on  the  relationship  that  the  loss  is 
proportional  to  the  product  of  collision  frequency  with  the  difference  between  group  path  and 
phase  path,  i.e., 


(28) 


where  is  the  deviative  absorption  loss  in  dB  and 

B(fv)  =  Ce  exp  [-2(h-70)/ymE]  for  the  E-layer, 

=  Cp  exp  [-2(h-h„F2  +  y„F2)/y„F2]  for  the  F2-layer, 

B(f,)  =  C,  exp  [-2(h-’ 1-  y„Fl  )/y„Fl  ]  for  the  Fl-layer  and 
B(fv)  =  Cj  exp  [-2(1»  h  +  y„F2)/y„F2]  for  the  F2  layer 

when  the  Fl-layer  is  present. 

The  constants  have  not  been  mapped  on  a  worldwide  basis  as  yet.  Interim  values  used  are 
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Q  =  0.25, 

Cp  =  0.40. 

C,  =  0.60. 

C,  =B(fJ^1). 

In  order  to  preserve  continuity  at  the  FI -layer  to  F2-layer  transition,  Cj  is  the  value  of  B(fv) 
with  f,  taken  as  f^Fl.  This  assures  a  smooth  calculation  of  loss  for  all  possible  electron  density 
profiles.  Note  that  Cp  and  Cj  are  forced  to  have  minimum  values  of  0.05. 

When  sporadic-E  is  present,  the  loss  is  supplemented  by  an  E,  obscuration  factor  as  described 
in  section  12. 


11.)  Loss  for  propagation  above  the  MUF 


The  model  does  not  assume  that  propagation  ceases  at  the  junction  frequency  (or  skip 
distance).  It  is  known  that  the  geometric  optics  approximation  does  not  suffice  in  the 
neighborhood  of  the  skip  zone.  By  using  wave  methods,  it  is  shown  that  energy  diffracts  into 
the  skip  region  (Bremmer)^^.  However,  the  observed  signals  are  too  strong  to  be  explained  in 
terms  of  wave  propagation  at  the  skip  distance.  The  physical  mechanism  for  the  propagation  of 
significant  signals  within  the  skip  zone  (or  above  the  MUF  when  the  distance  is  fixed)  is  not 
completely  understood.  One  possibility  is  that  the  ray-path  approximation  for  the  calculation  of 
skywave  signal  paths  is  probably  inadequate  since  the  skywave  signal  will  normally  return  from 
a  large  region  of  the  ionosphere  (at  least  one  fresnel  zone).  As  the  frequency  approaches  the 
MUF,  the  energy  arriving  at  the  sharper  angles  will  tend  to  penetrate  and  a  portion  of  the  fresnel 
zone  becomes  ineffective  as  a  reflector.  As  the  frequency  is  further  increased,  less  and  less  of 
energy  is  reflected  and  losses  will  sharply  increase.  On  the  longer  paths  where  the  fresnel  zone 
is  larger,  losses  increase  slowly  as  the  frequency  exceeds  the  MUF  compared  to  the  sharp 
increase  on  shorter  paths  where  the  fresnel  zone  is  smaller.  Other  mechanisms  may  also 
contribute  to  the  signal  propagation  and  explain  the  significant  signals  observed  above  the  MUF. 
For  example,  propagation  may  possibly  be  explained  by  scattering  from  horizontal  irregularities 
in  the  ionosphere  (Budden,  1966).  The  method  used  here  is  based  on  the  empirical  statistical 
method  of  Philips-Abel  (Wheeler)’*  rather  than  wave  theory.  The  basic  assumption  is  that  a 
reflecting  layer  of  the  ionosphere  may  be  considered  as  composed  by  quasi-random  (quasi¬ 
independent)  elemental  patches  of  ionization.  These  elemental  patches  are  considered  to  be 
composed  of  subpatches,  each  with  a  classical  MUF.  The  median  value  of  received  power  is 
proportional  to  the  probability  that  there  are  reflecting  areas  with  elemental  classical  MUF  values 
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that  are  equal  to  or  greater  than  the  transmission  frequency.  Experience  indicates  that  the  normal 
distribution  is  a  fair  estimate  of  the  spatial  probability  of  the  elemental  classical  MUF  values  and 
that  the  mean  value  of  this  distribution  is  a  fair  estimate  of  the  standard  MUF.  Further,  at  any 
given  operating  frequency  there  is  some  probability  that  the  frequency  will  exceed  the  median 
monthly  predicted  MUF  on  some  days.  Thus  this  loss  term  includes  both  the  effect  of  not  being 
below  the  MUF  on  some  days  of  the  month  and  the  loss  on  those  days  when  the  frequency  is 
above  the  MUF.  So  this  term  is  added  at  all  operating  frequencies.  The  equation  is 

(29) 


L=  10  log]Q  P  sec  (^) 


P  =  -^—fexp(-X^/2)dx 

^2lC  2 


f„  is  the  MUF  for  the  circuit  elevation  angle  and  distance  (note  that  f„  is  lower  for  a  two-hop 
mode  than  for  a  one-hop  mode  to  the  same  range).  For  vertical  incidence,  the  loss  is  less  than 
O.S  dB  for  frequencies  less  than  the  FOT,  and  less  than  3  dB  for  frequencies  less  than  the  MUF. 
Note  that  all  modes  from  all  layers  (E,  FI ,  F2,  and  E.)  now  look  the  same  (absorption  losses  plus 
over-the-MUF  loss).  The  differ  nee  is  in  the  distribution  of  the  MUF's,  being  narrow  for  the 
E  and  FI,  somewhat  wider  for  the  F2,  and  widest  for  E,. 

Since  signal  losses  are  associated  with  the  ratio  of  the  operating  frequency  to  the  MUF  at  a 
given  time,  the  day-to-day  variation  of  the  losses  will  be  dependent  upon  the  day-to-day  variation 
of  the  MUFs  within  the  month.  This  results  in  a  dramatic  spread  in  the  day-to-day  distribution 
of  expected  losses  near  the  monthly  median  MUF.  As  the  frequency  is  well  above  the  monthly 
median  MUF;  e.g.,  above  the  HPF  only  the  scatter  components  remain  and  the  signal  is  very 
weak,  but  the  day-today  distribution  is  not  great. 
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12.)  Sporadic-£  losses 


This  section  discusses  the  loss  models  associated  with  modes  of  propagation  for  which  ray 
theory  is  not  valid.  The  sporadic-E  layer  was  not  included  in  the  electron  density  profile.  It  is 
modeled  as  a  thin  layer  occurring  at  the  height  h'E,  (usually  100  to  1 10  km).  Its  effect  upon 
modes  of  propagation  passing  through  it  is  given  by  E,  obscuration  loss.  It  is  calculated  by  a 
method  proposed  by  Phillips^  and  modified  to  use  the  now  available  maps  of  foEs: 


where 


=  10  logjo(l-p) 


(30) 


P  = 


j  exp(-a:2)  dx 

z 


Z  = 


o 


and 


fm  "fo  ^  sec<|) 


For  modes  which  have  reflected  from  the  sporadic-E  layer,  the  loss  is  the  absorption  losses 
supplemented  by  a  reflection  loss  (corresponding  to  the  over-the-MUF  loss)  defined  by 

(31) 


Lk  =  8.91  P®’ 
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13.)  System  loss 


The  system  loss  of  a  radio  circuit  is  defined  as  the  ratio  of  the  signal  power  available  at  the 
receiving  antenna  terminals  relative  to  that  available  at  the  transmitter  antenna  terminals,  in 
decibels.  This  excludes  any  transmitting  or  receiving  antenna  transmission  line  losses,  since  such 
losses  are  considered  readily  measurable.  The  system  loss  does  include  all  the  losses  in  the 
transmitting  and  receiving  antenna  circuits  -  not  only  the  transmission  loss  caused  by  radiation 
from  the  transmitting  antenna  and  reradiation  from  the  receiving  antenna,  but  also  any  ground 
losses,  dielectric  losses,  antenna  loading  coil  losses,  and  terminating  resistor  losses.  Antenna 
gain  is  taken  as  antenna  power  gain  which  is  the  product  of  antenna  directive  gain  in  the  direction 
aligned  with  the  propagation  path  in  both  elevation  and  azimuth  and  of  antenna  efficiency. 
The  system  loss  is  summarized  as  (Rice,  et  al.)** 

(32) 

=  ^bf  Li  Lg-  (G,  +  (dB) 

where 

Lbf  =  the  basic  free-space  transmission  loss  expected  between  ideal,  loss-free,isotropic, 
transmitting  and  receiving  antennae  in  free  space; 

Lj  =  losses  caused  by  ionospheric  absorption,  this  term  includes  sporadic  E  layer  obscuration 
loss,  L  ,  for  F-layer  modes.  For  all  modes,  this  factor  includes  the  deviative  losses  at 
high  reflection  heights  and  over-the-MUF  loss,  as  well  as  the  tables  of  measured  deviations 
which  include  auroral  losses. 

Lg  =  ground  reflection  losses. 

G,  =  transmitting  antenna  power  gain  relative  to  an  isotropic  antenna  in  free  space; 

G,  =  receiving  antenna  power  gain  relative  to  an  isotropic  antenna  in  free  space; 

In  this  report,  G,  and  G^  are  in  the  direction  of  the  propagation  path  and  include  all  antenna 
losses,  so  that  G,  +  G,  is  an  approximation  of  the  power  gain  Gp.  The  values  G,  and  G,  are 
required  for  any  elevation  angle,  azimuth,  and  frequency. 

The  skywave  field  strength  is  directly  related  to  the  transmission  loss,  1^,. 

This  is  the  loss  that  would  be  observed  if  the  actual  antennas  were  replaced  by  ideal,  loss-free, 
isotropic  transmitting  and  receiving  antennas.  The  field  strength  is; 
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E  =  107.2  +  20  logf^  +  G,  +  P-L, 


(33) 


v’here 


E  =  rms  field  strength  in  dB  referred  to  one  microvolt  per  meter, 

G,  =  transmitting  antenna  gain  in  the  direction  of  the  ray  path  used  to  determine  L,  (decibels 
referred  to  an  isotropic  antenna). 

P  =  transmitter  power  delivered  to  the  transmitter  antenna  in  decibels  referred  to  one  watt, 
fob  =  operating  frequency  in  megahertz. 


In  cases  when  the  reference  field  strength  is  300  millivolts  per  meter  at  one  kilometer  (rms 
field  produced  by  1  kW  input  to  a  short  dipole  over  perfect  earth),  the  sky  wave  field  strength, 
E,  is 


E  =  142.0  H  20  logf^  -  L, 


(34) 


Likewise,  when  the  reference  field  strength  is  222  millivolts  per  meter  at  one  kilometer,  the 
skywave  field  strength,  E,  is 


(35) 


E  =  139.4  ^  20  log  f^-L, 


A  semi-empirical  method  to  include  recent  measurements,  especially  back-scatter  measurement, 
in  the  calculation  of  ionospheric  losses  has  been  developed.  It  includes  deviative  and 
non-deviative  effects  as  well  as  sporadic-E  effects.  The  average  effects  of  magnetic  field  and 
of  polarization  changes  are  included  implicitly  as  the  constants  in  the  equations  are  taken  from 
measurements  which  included  these  effects.  The  median  excess  system  loss  (that  loss  shown 
below  40  degrees  geomagnetic  latitude)  is  no  longer  used  as  it  was  mainly  the  average  effect  of 
sporadic-E  and  deviative  losses.  The  remainder  of  the  values  from  the  table  III  are  still  used  for 
Arctic  losses  (Lucas  and  Haydon)“. 
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14.)  Antenna  gain 


The  antenna  gain  is  calculated  using  the  take-off  vertical  radiation  angle  as  calculated  from 
the  reflectrices.  The  specific  antenna  paterns  are  stored  in  arrays  of  vertical  angle  gain  and 
horizontal  beamwidth  for  each  frequency.  The  antenna  gain  routines  (e.g.  ANTOO)  must  return 
a  power  gain  for  some  specific  frequency,  and  vertical  and  horizontal  radiation  angle  in  degrees. 
The  antenna  gain  routines  contained  in  RADARC  are  for  specific,  real  antennas  and  will  not  be 
shown  in  this  report. 

15.)  Ground  reflection  loss 


The  ground  reflection  losses  must  be  estimated  for  the  multi-hop  modes  of  propagation.  The 
RADARC  model  tests  the  latitude  and  longitude  of  the  ground  reflection.  It  then  enters  a  digital 
representation  of  the  boundaries  of  the  sea  and  land  masses.  The  reflection  area  is  assumed  to 
be  from  sea  or  land  and  losses  such  as  those  shown  in  figures  8a  and  8b  are  added  for  each 
ground  reflection.  The  digital  map  is  a  fairly  coarse  representation  of  land  masses  as  shown  in 
figure  8a.  It  is  believed  to  be  accurate  enough  considering  that  the  error  in  predicting  the  ground 
reflection  due  to  gradients  in  the  ionosphere  is  not  taken  into  account  in  the  program. 
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REFLCCTION  MUC  (II  OCtRCCS 


FMCaVEMCT  —  HESACTCLES 

Figure  8a  Ground  reflection  loss  for  poor  earth  (8—4;  a =.001) 


miOttEIICT-  HCEACYCLES 

Figure  8b  Sea  water  reflection  loss  (8=80;  a =5.0) 
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16.)  Environmental  noise 


The  environmental  noise  with  which  a  radar  must  compete  is  of  three  different  origins. 

1 . )  Atmospheric  noise  -  the  noise  arising  from  distant  thunderstorm  activity. 

2. )  Galactic  noise  -  the  noise  received  on  earth  from  the  galaxy. 

3. )  Man-made  noise  -  the  noise  generated  by  man,  ie,  electrical  power  lines, 

automobile  electrical  systems,  lawnmowers,  etc. 

4. )  A  fourth  noise  can  be  added  that  represents  the  internal  noise  of  the  specific  radar 

being  used. 

The  predicted  value  of  atmospheric  noise  is  evaluated  from  the  numerical  maps  contained 
in  the  CCIR  report  322-3”.  The  time  of  year  is  represented  in  these  maps  with  four  maps  over 
three  months  each.  They  are  mapped  for  six  hourly  time  blocks  ie,  00-04,04-08,08-12, 12-16  and 
16-24  LMT.  A  sample  is  shown  in  figure  9.  A  sample  of  the  frequency  dependence  is  shown  in 
figure  10. 


Figure  9  Numerically  mapped  values  of  atmospheric  radio  noise  at 


1  MHz,  (dB  >  (Kt„b),  for  Dec-Jan-Feb,  00-04  LMT. 
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Figure  10  Frequency  dependence  of  the  atmospheric  radio 
noise  (Fa„,)  for  00-04  LMT,  Dec-Jan-Feb. 

The  predicted  value  of  the  man-made  noise  and  galactic  noise  is  taken  from  past  measured 
values.  The  man-made  noise  is  plotted  as  a  function  of  population  density  for  those  who  have  no 
idea  what  value  to  use  in  the  predictions.  Figure  1 1  shows  these  values  as  a  function  of  "area". 

The  three  or  four  noise  values  are  predicted  for  the  receiver  site  in  question  and  the  largest 
one  taken  as  the  prevailing  value  of  noise  used  in  the  radar  equation  for  calculation  of  signal-to- 
noise  or  ground  clutter-to-noise  ratio. 
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Figure  11  Man-made  noise  as  a  function  of  area  population  (-dBW) 


17.)  Backscatter  amplitudes  and  and  ray-paths 


RADARC  is  executed  for  a  set  of  radar  parameters,  time  of  day,  month  of  the  year,  some 
specific  azimuth,  transmitter  power,  etc.  and  a  predetermined  maximum  number  of  vertical 
radiation  angles,  i.e.  1  to  45  degrees.  It  is  run  for  each  of  these  specific  radiation  angles.  The 
result  describes  a  distribution  of  signal  levels  along  the  path  for  a  one-way  transmission.  The 
results  of  these  one-way  paths  can  then  be  inserted  into  the  radar  equation  to  determine  the 
received  backscatter  amplitude.  A  complete  listing  of  the  variables  needed  and  the  form  they 
should  be  in  can  be  found  in  a  discussion  by  Headrick^. 
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Taking  logarithms  of  the  classical  radar  equation  and  putting  it  in  the  form  of  the 
transmission  loss  equation  yields  the  following  equation  used  in  RADARC.  The  prevailing 
environmental  noise  will  be  added  to  the  equation  to  yield  signal-to-noise  or  ground  clutter-to- 
noise  ratio  at  the  receiver. 


(36) 

S/N  =  POWER  +  PKAVG  +  GAIN  +LAMLOG  +  CIT 
+  CAREA  +OTH  -  R4TH  -  1LOSS  -NOISE 
power  =  transmitted  power  -  dB  >  1  Watt 
gain  =  antenna  gain  (transmitter  +  receiver)-dB  >  isitrope 
in  free  space 
lamlog=  -  dB 

r4th  =  1/R^  losses  (from  free  space  loss  in  section  13) 
tloss  =  system  loss  from  the  section  13  (includes  antenna  gains) 
noise  =  prevailing  envimomental  noise  (largest  of  the 

atmospheric  galactic,  man-made  or  radar  internal  noise)-dBW 
carea  =  reflection  coefficient  of  the  surface  multiplied  by  the 
surface  area  in  meters  squared.  This  can  be  either  the 
earth  area  or  a  target  area.  dB  >  1  meter^ 
pkavg  =  peak  power/  average  power  -  db  (zero  for  FMCW  radar) 
oth  =  radar  over  the  horizon  enhancement  (usually  12  dB  for  sea 
backscatter) 
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cit  =  coherent  integration  time  _  this  is  the  time  over 

which  a  returned  waveform  is  summed  at  the  receiver. 
dB>  1  sec. 

The  OTH  enhancement  is  a  factor  that  accounts  for  multipath  and  the  conductivity  of  the 
reflection  area.  A  6  dB  figure  seems  more  reasonable  for  an  air  target  at  altitude  than  the  usual 
12  dB  and  is  used  by  12  for  surface  targets. 

The  antenna  gains  must  be  in  power  gain  for  a  signal  level  prediction.  This  means  the 
efficiency  must  be  known.  To  predict  signal  or  ground  clutter-to-noise  the  directive  gain  may  be 
used. 

The  sections  to  follow  will  show  in  much  detail  what  is  needed  for  input  information 
to  sucessfully  execute  the  program  RAD  ARC  and  detailed  output  for  executed  sample  input  using 
the  program. 

18.)  Summary 

The  mathematics  associated  with  the  ionospheric  profile  and  ray-path  generation  are 
presented  for  the  OTH  radar  prediction  routine  RADARC-2.  The  method  of  calculating  all  losses 
associated  with  the  computed  ionosphere  is  illustrated  in  detail.  The  method  of  including  the  one¬ 
way  losses  into  the  radar  equation  for  assessment  of  OTH  radar  is  shown. 

A  complete  internal  description  of  all  the  modules  forming  the  Fortran  code  is  included 
for  those  wishing  to  make  revisions  or  corrections  to  the  computer  code.  The  spread  Doppler 
clutter  (SDC)  code  is  included  in  this  version  of  RADARC-2  and  is  easily  invoked  in  the  user 
friendly  input  file.  The  computer  program  is  complete  and  usable  world-wide  for  OTH  radar 
performance  calculations  that  include  environmental  noise  and  range  dependent  noise  (SDC). 

The  Fortran  code  allows  execution  of  the  program  on  any  machine  using  a  floating  point 
number  of  at  least  32  bits.  Outputs  can  be  chosen  from  many  diverse  printed  tables  or  printer 
graphics  choices. 
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PART  II 

Users  guide  to  RAD  ARC  input/output 
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1.)  Input 


1.1)  Files  used  by  RADARC 

All  input  to  RADARC  must  be  available  before  the  program  is  executed.  Several  logical 
assignments  must  be  made  as  well.  There  is  one  input  file  which  contains  the  run  parameters 
for  the  program;  it  is  the  only  file  that  the  user  needs  to  prepare.  There  are  up  to  seven 
necessary  data  files;  the  exact  number  depends  on  the  run  parameters  specified.  One  scratch  file 
is  opened  by  the  program,  and  it  is  deleted  upon  successful  execution.  These  files  are: 

User  prepared 
FOR011.DAT 

Provided  with  RADARC 
CGMCS.BIN 
HFANT  DIR:ANTXX 
HFDAtIdIR:GEOMAG.BIN 
HFDAT_DIR:LANDMAP.BIN 
HFDAT_DIR:  MON.BIN 
HFDAT  DIR: MONNOISE.BIN 
HFDAT~DIR:  YMCOEF.BIN 

Created/destroved  bv  RADARC 
FOR099 

The  necessary  logical  assignments  are: 

FOROl  1  The  user  input  file,  if  it  has  any  name  other  than  FOROl  l.dat  or 

is  not  located  in  the  default  directory  from  which  RADARC  is  run. 
HFANT_DIR  The  directory  location  of  the  antenna  data  files. 

HFDAT_DIR  The  directory  location  of  all  data  files  except  those  two  specified 

above. 

FOROlO  A  primary  output  file;  assignment  is  optional. 

FOR032  A  primary  output  file;  assignment  is  optional. 

FOR034  A  secondary  output  file;  assignment  is  optional. 

These  assignments  can  be  accomplished  under  Digital  VMS  with  the  following 
statements.  The  user  must  replace  the  term  with  the  angle  brackets  with  the 
appropriate  specification;  the  brackets  are  omitted. 

SASSIGN  <[user_directory]user_input_file>  FOROl  1 
SASSIGN  <[antenna_dir]>  HFANT_DIR 
SASSIGN  <[antenna_dir]>  HFDAT_DIR 
$  ASSIGN  <  [user_directory]user_output_file_l  >  FOROlO 


program  control  parameters  (User  specified) 


geomagnetic  database  used  by  CGMCS 
optional  antenna  data  file 
geomagnetic  database  used  by  GEOMAG 
digitized  map  of  major  land  masses 
monthly  longterm  ionospheric  database 
monthly  noise  maps 
maps  of  the  ratio  for  parabolic  layers 


scratch  file  created/deleted  by  RADARC 
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SASSIGN  <  [user_directory]user_output_file_2  >  FOR032 
$ASSIGN  <  [user_directory]user_output_fiIe_3  >  FOR034 
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1.2)  Details  of  user-specified  run  parameter  file 

The  user-specified  input  file  consists  of  a  list  of  keywords,  some  with  arguments.  The 
keywords  are  listed,  one  per  line,  with  spaces  delimiting  keywords  and  arguments.  Any  line  may 
be  made  a  comment  by  inserting  an  exclamation  point  (!).  No  portion  of  the  line  to  the  right  of 
the  exclamation  point  will  be  read;  entire  lines  may  be  commented  by  putting  the  exclamation 
point  in  column  1 ,  Neither  blank  lines  nor  lines  without  a  recognizable  keyword  have  any  effect. 
The  keywords  and  their  associated  arguments  are  described  below,  in  alphabetical  order.  A 
sample  input  file  follows. 

ANTTYPE  Keyword  to  select  the  antenna.  Takes  1  value.  The  value  may  be  positive 

or  negative.  If  negative,  its  absolute  value  is  used  as  the  two-way  gain. 
If  positive,  it  is  a  built-in  antenna  type  to  be  used  in  calculating  the  two- 
way  gain.  See  the  appropriate  antenna  routine  (subroutine  antXX).  The 
usages  are  mutually  exclusive,  and  the  last  one  input  is  used, 
ex:  anttype  -50  !  Constant  2-way  gain  of  50  dB. 
anttype  12!  Internal  routine  antl2  is  used. 

default:  ANTTYPE  -50 


AZIMUTH  This  key  allows  the  user  to  specify  the  'look’  azimuth  of  the  radar,  in 

decimal  degrees  clockwise  from  geographic  north.  Takes  1  value. 

default:  AZIMUTH  77. 

CIT  Specifies  the  coherent  integration  time,  seconds.  Takes  a  single  value. 

default:  CIT  1.0 

ECLUT,  lECLUT  May  also  be  lECLUT,  either  way  it  takes  a  single  floating  point  argument, 

which  is  a  multiplier  for  e  clutter  magnitude.  Intended  to  reflect  specific 
ionospheric  information  only,  and  be  left  equal  to  1  or  0  the  rest  of  the 
time. 

default:  ECLUT  0. 

EMULATE  This  keyword  is  a  sort  of  meta-key:  it  takes  no  arguments  and  defines  a 

group  of  variables  to  be  set  in  accordance  with  an  earlier  version  of 
radarc.  The  effect  is  immediate  and  overrides  preceding  keywords,  but 
not  subsequent  keywords.The  variables  affected,  and  their  values  after  this 
key  is  used,  are: 

SCRPLT  -  SCRPLT  status  reverts  to  SNRPLT 
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CCRPLT  -  CCRPLT  status  reverts  to  CNRPLT 

LIMHOP  2  -  only  2  hops  are  predicted 

AREAS  2-2  ionospheric  sample  areas  are  use 

STEP  1400  -  No  sample  is  drawn  at  0  distance;  sample  areas  are  at 

1400  and  2800. 

default:  inactive 


FEC,  HE,  YME 
FlC,  HFl,  YMFl 
F2C,  HF2,  YMF2 

These  parameters  can  be  used  to  dictate  a  complete  description  of  the 
regular  layers  of  the  ionosphere.  Two  values  are  associated  with  each 
parameter.  The  first  specifies  the  sample  area  to  be  associated  with  the 
input  value;  the  second  is  the  input  value  itself.  Defining  the  ionosphere 
at  unused  sample  areas  has  no  effect.  Up  to  ten  sample  areas  may  be 
defined. 

FEC  -  E  layer  critical  frequency. 

FlC  -  FI  layer  critical  frequency. 

F2C  -  F2  layer  critical  frequency. 

HE-  Height  of  maximum  ionization,  E  layer. 

HFl  -  Height  of  maximum  ionization,  FI  layer. 

HF2  -  Height  of  maximum  ionization,  F2  layer. 

YME  -  Semithickness  of  a  parabolic  E  layer 
YMFl-  Semithickness  of  a  parabolic  FI  layer 
YMF2-  Semithickness  of  a  parabolic  F2  layer 

default:  bv  default  these  parameters  are  calculated. 

FCLUT,  IFCLUT  May  also  be  IFCLUT,  either  way  it  takes  a  real  argument,  which  is  a 

multiplier  for  f  clutter  magnitude.  It  is  intended  to  reflect  specific 
ionospheric  information  only,  and  be  left  equal  to  1  or  0  the  rest  of  the 
time. 

default:  FCLUT  0. 

FESL,FESM,FESU  These  parameters  can  be  used  to  dictate  the  sporadic  E  layer.  Two  values 

are  associated  with  each  parameter.  The  first  specifies  the  sample  area  to 
be  associated  with  the  input  value;  the  second  is  the  input  value  itself. 
Defining  the  ionosphere  at  unused  sample  areas  has  no  effect.  Up  to  ten 
sample  areas  may  be  defined.  Note  that  these  parameters  specify  the  Es 
layer  in  a  manner  which  differs  from  the  regular  modes. 

FESL-  Lower  decile  of  Es  critical  frequency  distribution. 
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FEC,  HE,  YME 
FlC,  HFl,  YMFl 
F2C,  HF2,  YMF2 


FCLUT,  IFCLUT 


FESL,FESM,FESU 


CCRPLT  -  CCRPLT  status  reverts  to  CNRPLT 

LIMHOP  2  -  only  2  hops  are  predicted 

AREAS  2-2  ionospheric  sample  areas  are  use 

STEP  1400  -  No  sample  is  drawn  at  0  distance;  sample  areas  are 

at  1400  and  2800. 

default:  inactive 


These  parameters  can  be  used  to  dictate  a  complete  description  of  the 
regular  layers  of  the  ionosphere.  Two  values  are  associated  with  each 
parameter.  The  first  specifies  the  sample  area  to  be  associated  with  the 
input  value;  the  second  is  the  input  value  itself.  Defining  the  ionosphere 
at  unused  sample  areas  has  no  effect.  Up  to  ten  sample  areas  may  be 
defined. 

FEC  -  E  layer  critical  frequency. 

FlC  -  FI  layer  critical  frequency. 

F2C  -  F2  layer  critical  frequency. 

HE-  Height  of  maximum  ionization,  E  layer. 

HFl  -  Height  of  maximum  ionization,  FI  layer. 

HF2  -  Height  of  maximum  ionization,  F2  layer. 

YME  -  Semithickness  of  a  parabolic  E  layer 
YMFl-  Semithickness  of  a  parabolic  FI  layer 
YMF2-  Semithickness  of  a  parabolic  F2  layer 

default:  bv  default  these  parameters  are  calculated. 

May  also  be  IFCLUT,  either  way  it  takes  a  real  argument,  which  is  a 
multiplier  for  f  clutter  magnitude.  It  is  intended  to  reflect  specific 
ionospheric  information  only,  and  be  left  equal  to  1  or  0  the  rest  of  the 
time. 

default:  FCLUT  0. 

These  parameters  can  be  used  to  dictate  the  sporadic  E  layer.  Two  values 
are  associated  with  each  parameter.  The  first  specifies  the  sample  area  to 
be  associated  with  the  input  value;  the  second  is  the  input  value  itself. 
Defining  the  ionosphere  at  unused  sample  areas  has  no  effect.  Up  to  ten 
sample  areas  may  be  defined.  Note  that  these  parameters  specify  the  Es 
layer  in  a  manner  which  differs  from  the  regular  modes. 

FESL-  Lower  decile  of  Es  critical  frequency  distribution. 
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FESM-  median  of  Es  critical  frequency  distribution. 

FESU-  upper  decile  of  Es  critical  frequency  distribution. 

default:  by  default  these  parameters  are  calculated. 

FOE,  FOFl,  FOF2,  FOES 

These  parameters  are  layer  critical  frequency  multipliers,  to  be  used  to 
customize  the  program  when  specific  data  about  the  ionosphere  is  at  hand. 
Generally,  these  should  be  set  to  1,  except  for  foEs  which  is  set  to  .7. 
Each  key  takes  a  single  value. 

defaults:  FOEl.Q.  FOFl  10.  FOF2  1.0.  FOES  0.7 

FREQ,  FREQMAX,  FREQMIN,  FREQSTEP 

The  prediction  may  be  run  for  a  single  frequency,  using  the  ’freq’ 
keyword,  or  a  range  of  frequencies  from  ’freqmin’  to  ’freqmax’  in 
’freqstep’  MHz  intervals.  The  two  usages  are  mutually  exclusive.  Each 
key  takes  1  value. 

default:  FREQMIN  5.0.  FREQMAX  28.0.  FREQSTEP  1.0 

GROUND,  SLANT  An  output  option,  these  two  parameters  are  mutually  exclusive  and  only 

the  last  will  be  used.  The  keyword  takes  no  argument  and  specifies 
whether  slant  or  ground  range  will  be  used  in  the  plots  of  CNR/SNR  vs. 
range. 

default:  GROUND 
HOPS,  HOPLIM,  LIMHOP 

These  keywords  are  synonyms.  They  designate  how  many  hops  out  the 
program  will  calculate.  The  original  radarc  used  2  only.  Now  up  to  4  are 
allowed.  Takes  1  argument 

default:  LIMHOP  2 

K  factor  is  the  local  magnetic  index  used  in  ionospheric  clutter 
calculations.  Takes  1  argument. 

default:  KFAC  1.0 

Kp  is  the  planetary  magnetic  index,  which  is  used  in  calculations  of 
ionospheric  clutter  and  in  the  calculation  of  the  arctic  oval.  If  this  value 
is  negative  the  oval  will  not  be  calculated,  but  the  absolute  value  will  still 
be  used  for  ionospheric  clutter  calculations.Takes  1  value. 


KFAC 


KP 
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LSCAN 


MONTH 


ORTHOAPT 


ORTHOMAG 


PRINTOUT 


default:  KP  -3 

Scan  loss  multiplier;  takes  1  argument. 
default:  LSCAN  0 

Specifies  the  month  to  be  predicted.  Takes  1  value, 
default:  MONTH  1 


Aperture  of  the  orthogonality  effect;  takes  1  argument.  The  aperture  is  the 
largest  deviation  from  orthogonality  that  produces  clutter.  The  magnitude 
of  the  clutter  will  be  sin-function  interpolated  from  zero  at  a  deviation 
outside  ORTHOAPT  to  ORTHOMAG  at  orthogonality. 

default:  ORTHOAPT  0.0 

Maximum  value  of  orthogonality  induced  ionospheric  clutter.  Takes  1 
argument. 

default:  ORTHOMAG  0.0 

An  output  option  taking  1  argument;  the  three  values  (1,  2,  or  3)  are 
mutually  exclusive  and  only  the  last  will  be  used.  The  output  formats 
available,  and  the  printout  option  that  specifies  them,  are: 

All  printouts 

fortran  unit  10 

ray  set  tables  up  to  limhop,  regular  modes 
rayset  tables  up  to  2  hops,  sporadic  E  modes 
fortran  unit  30 

vertical  ionograms,  by  sample  area 

range  coverage,  amplitude  vs  time  delay,  by  frequency  ( two-part 
figure,  if  necessary) 

oblique  ionograms  (  2  ionograms  at  different  scales) 
combined  raysets  table 

printouts  2  and  3  only 

fortran  unit  32 

range  coverage  part  1,  amplitude  vs  time  delay, 
by  mode 

angle  coverage  part  1,  amplitude  vs  time  delay. 
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by  mode 

range  coverage  part  2  (if  necessary),  amplitude 
vs  time  delay,  by  mode 
angle  coverage  part  2  (if  necessary),  amplitude 
vs  time  delay,  by  mode 


printout  3  only 

fortran  unit  34 

echo  internal  values  of  input 

miscellaneous  diagnostic  information  from  ymap,lecden,  fobby, 
setion,  and  setplt. 

default:  printout  1 

SYSLOS  Specifies  loss  due  to  radar  signal  processing  and  other  losses  not 

specifically  included  elswhere,  dB. 

default:  SYSLQS  Q.Q 

PULSEWIDTH  Specifies  pulsewidth  to  be  used  in  the  prediction,  in  microseconds.  Takes 

a  single  value.  This  is  required  for  earth  backscatter  area  calculation. 
RADARC  calculates  SNR  on  an  average  power  basis;  therefore,  signal 
bandwidth  is  not  required. 

default:  PULSEWIDTH  120.0 


SAMPLES,  AREAS 

This  optional  parameter  specifies  the  number  of  sample  areas  to  use.  the 
keywords  are  synonymous.  Take  1  argument. 

default:  SAMPLES  10 

SAMPLE_STEP,  AREA_STEP,  STEP 

These  optional  synonymous  parameters  specify  the  spacing  between 
sample  areas,  takes  1  argument. 

default:  700  km 
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SITELAT 


The  geographic  north  latitude  of  the  transmitter  in  decimal  degrees.  Takes 
two  values;  the  first  is  numeric,the  second  is  a  single  character 
north/south  indicator.  An  ’S’  will  override  the  sign  of  the  numeric  value 
and  result  in  a  point  in  the  southern  hemisphere.  An  ’N’  or  an  omitted 
value  will  result  in  an  interpretation  from  North,  e.g.  +north,-south. 
ex:  SITELAT  -25.  S  yields  25  degrees  south 

SITELAT  25.  S  yields  25  degrees  south 
SITELAT  25.  N  yields  25  degrees  north 
SITELAT  -25.  N  yields  25  degrees  south 
SITELAT  25.  yields  25  degrees  north 

default:  SITELAT  38.655  N 

SITELONG  The  geographic  west  longitude  of  the  transmitter  in  decimal  degrees. 

Takes  2  values:  the  first  is  numeric,  the  second  is  a  single  character 
East/West  indicator.  The  ’E’  or  ’W’  characters  are  additive  with  the  sign 
of  the  numeric. 

ex;  SITELONG  -77.  W  yields  77  degrees  east 
SITELONG  -77.  E  yields  77  degrees  west 

default:  SITELONG  77.5  W 

SNRPLT,  CNRPLT,  SCRPLT,  CCRPLT 

Output  options;  the  following  options  are,  like  many  keywords  in  this  list, 
mutually  exclusive,  and  only  the  last  will  be  used.  The  keywords  take  no 
arguments  and  specify: 

SNRPLT  -  signal-to-noise  ratio  vs.  range.  This  is  the  ratio  of  the  signal 
associated  with  the  return  from  the  target  to  the  noise  at  the 
receiver. 

CNRPLT  -  clutter-to-noise  ratio  vs.  range.This  is  the  ratio  of  the  signal 
associated  with  the  ground  or  sea  return  to  the  noise  at  the 
receiver. 

SCRPLT  -  signal-to-ionospheric  clutter  ratio  vs.  range.  This  is  the  ratio 
of  the  signal  associated  with  the  return  from  the  target  to  the 
greater  of  noise  at  the  receiver  or  ionospheric  clutter. 

CCRPLT  -  clutter-to-ionospheric  clutter  ratio  vs.range.  This  is  the  ratio 
of  the  signal  associated  with  the  ground  or  sea  return  to  the  greater 
of  noise  at  the  receiver  or  ionospheric  clutter. 

default:  SNRPLT 

SUNSPOT,  FLUX  Solar  flux  and  sunspot  are  used  for  the  same  sorts  of  calculations.  If  either 

is  input  the  program  will  calculate  the  other  according  to  the  relationship 
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below,  to  be  used 


FLUX  =  ((406.37+SUNSPOT)’"*2-93918.4)/1 117.3 
SUNSPOT  =  SQRT(93918.4+1117.3*FLUX)-406.37 

as  called  for;  therefore  only  one  of  these  is  required.  In  fact,  only  one  can 
be  used,  because  the  last  one  input  will  cause  the  recalculation  of  previous 
flux/sunspot  values.  Each  keyword  takes  a  single  value. 

default:  SUNSPOT  70. 

TARSIZE,  TARTYPE 

The  radar  target  may  be  included  as  a  fixed  target  size  using  TARSIZE’, 
in  dB  above  1  sq.  meter,  or  as  a  built-in  target  type,  using  ’TARTYPE’. 
Tartype  and  tarsize  are  mutually  exclusive;  the  last  one  encountered  will 
be  used.  Each  key  requires  1  value. 

default:  TARSIZE  70 

TIME,  TIME_START,  TIME_STOP,  TIME_SKIP 

24  hour  GMT  time  at  the  transmitter  for  which  a  prediction  is  desired. 
Like  the  frequency,  this  parameter  may  be  constant  (use  ’TIME’),  or 
defined  as  a  loop  from  ”nME_START’  to  ’TIME_STOP’  by  steps  of 
’TIME_SKIP’.  Each  key  requires  1  value. 

default:  TIME  0. 

TXPOWER  Allows  specification  of  the  transmitter  power  of  the  radar  in  kW.  Takes 

a  single  value. 

default:  TXPOWER  0.2 

WT  The  receive  weighting  factor;  takes  1  argument. 

default:  WT  1.0 
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XNOISE 


YEAR 


Receiver  CCIR  noise  type  if  zero  or  negative,  as  given  below, or  noise  in 
dB  below  1  watt  if  positive  and  not  equal  to  5.  When  equal  to  5,  the 
specified  noise  is  the  greater  of  the  natural  noise  and  an  approximate 
internal  noise  calculated  in  the  program.  Takes  a  single  value. 

CCIR  man-made  noise 
-1  Industrial 
-2  Residential 
-3  Rural 
-4  Remote 

Internal  noise  options 

-5  use  internal  noise  only  (no  natural  noise) 

-1-5  manmade  noise  source  is  internal  noise 

default:  •^5 

If  the  oval  is  turned  off,  this  is  cosmetic  only,  but  with  the  oval  turned  on 
this  is  necessary,  and  is  used  to  figure  solar  epoch.  Takes  1  value. 

default:  YEAR  1989 
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The  following  sample  input  file  is  a  legal,  unambiguous  file,  though  messy. 


!  an  !  indicates  a  comment 
!  file:  SAMPLE.INP 
sitelat  51.44  N 
sitelong  79.16W 
azimuth  275. 
hops  2 

FREQMIN  5. 

FREQMAX  28. 
FREQSTEP  1 
IFREQ  18. 
txpower  200. 
pulsewidth  120 
cit  3.1 
xnoise  -5 


or  comment  line 

!  latitude  of  transmitter  decimal  degree  N+,  S- 
!  longitude  of  transmitter  W+,  E- 
!  ’look’  azimuth  deg  CW  from  North 
!  calculate  only  2  hops  of  predictions 
!  you  may  select  to  run  the  prediction  for  a  single 
!  frequency,  using  the  ’’freq"  keyword,  or  a  range  of 
!  frequencies  from  "freqmin"  to  "freqmax"  in  "freqstep" 
!  intervals,  the  two  usages  are  mutually  exclusive. 

!  KW) 

!  Microseconds 

!  Coherent  Integration  Time,  seconds 
!  Receiver  Noise  type  if  negative,  noise  in  dB  below 
1  watt  if  positive 


!  antenna  type  may  be  positive  or  negative,  if  negative,  it’s  absolute 
!  value  is  used  as  the  two-way  gain.  If  positive,  it  is  an  antenna  type  to  be 
!  used  in  calculating  the  two-way  gain.  See  the  appropriate  antenna 
!  routine  (subroutine  antXX).  The  usages  are  mutually  exclusive,  and  the 
!  last  one  input  is  used. 

!  anttype  -50  !  Constant  gain  antenna,  2-way  gain  =  abs(-50) 
anttype  12  !  Antenna  type,  last  one  controls 
MONTH  6  !  Month  Number  (1  -  12) 

!  GMT  time  at  transmitter 
TIME  24  !  GMT  time  (1-24) 

!time_start  2 
!time_stop  3 
!time_skip  1 

!  if  the  oval  is  off,  this  is  cosmetic  only,  but  with  the  oval  on  this  is 

!  used  to  figure  solar  epoch. 

year  1991  !  Needed  for  arctic  oval 

!  solar  flux  and  sunspot  are  used  for  the  same  sort  of  calculations.  If  flux 

!  is  input  the  program  will  calculate  a  sunspot  number  to  use  as  called  for. 

!  therefore  only  one  of  these  need  be  used  in  the  deck.  In  fact  only  one  can 
!  be  used  in  the  deck  because  the  last  one  input  will  cause  the  recalculation 
!  of  previous  flux/sunspot  values. 

Iflux  70  !  Can  use  either  flux  or  sunspot  number 
sunspot  1(X). 

!  Kp  is  the  planetary  magnetic  index,  which  is  used  in  calculations 
!  of  ionospheric  clutter  and  in  the  calculation  of  the  arctic  oval.  If 
!this  value  is  negative  the  oval  will  not  be  calculated,  but  the  absolute 


!  value  will  still  be  used  for  ionospheric  clutter  calculations. 

Kp  5  !  Magnetic  activity  (1-7)  needed  for  arctic  oval/trough 

j 

Kp  -1.7  !  Negative  value  turns  off  oval,  absolute  value  still 
!  used  in  Elkin's  clutter  algorithms,  last  one  controls 

!  layer  critical  frequency  multipliers,  to  be  used  to  customize  the  program 
!  when  specific  information  about  the  ionosphere  is  known.  Generally,  these 
!  should  be  set  to  1 ,  except  for  foEs  which  is  set  to  .7 

foE  1.0  !  foE  multiplicative  factor,  default  =1.0 

foFl  1.0  !  foFl  multiplicative  factor,  default  =1.0 

foF2  1.0  !  foF2  multiplicative  factor,  default  =  1.0 

foEs  .7  !  foEs  multiplicative  factor,  default  =  .70 

!  tartype  and  tarsize  are  mutually  exclusive,  only  the  last  one  entered 

!  will  be  used 

tartype  -1  !  Target  type,  can  use  type  or  size 

tarsize  17.0  !  Target  size,  dB  above  1  sq.  meter,  last  one  controls 

[  output  options,  the  following  three  options  are,  like  many  inputs  in 

!  this  list,  mutually  exclusive  and  only  the  last  will  be  used. 

areas  2  !  this  optional  parameter  specifies  the  number  of  sample  areas  to  use 

area_step  1400.  !  this  optional  parameter  specifies  the  spacing  between  sample 

!  areas. 

scrplt  1.0  !  Signal/max(  ionospheric  clutter,  noise),  last  one  controls 

snrplt  1.0  !  Signal/noise  plots,  last  one  controls 

ccrplt  1.0  !  Clutter/noise  plots,  can  use  cnrplt  or  snrplt 

cnrplt  1 .0  !  Signal/max(  ionospheric  clutter,  noise),  last  one  controls 

!  the  argument  is  ignored 

! 

!  output  options,  the  following  two  options  are  mutually  exclusive 

!  and  only  the  last  will  be  used.  The  argument  is  ignored. 

ground  1 .0  !  CNR  or  SNR  plots  vs  range,  last  one  controls 

slant  1 .0  !  CNR  or  SNR  plots  vs  range,  can  use  slant  or  ground 

!  output  options,  the  following  three  options  are  mutually  exclusive 

!  and  only  the  last  will  be  used. 

printout  1  !  Normal  print  out,  last  one  controls 

printout  2  !  Individual  frequencies  printed  out  plus  printout  =  1 

Iprintout  3  !  Diagnostic  print  out  plus  printout  =  2  and  1 

} 

WT  1 .0  !  receive  weighting  factor 

KFAC  5  !  K  factor  is  a  local  magnetic  index  used  in  ionospheric  clutter 

!  calculations 

LSCAN  0  !  scan  loss  multiplier 

FCLUT  0.01  !  may  also  be  IFCLUT,  either  way  it  is  a  real  multiplier  for  f  clutter 
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!  magnitude.  Should  be  used  to  reflect  specific  ionospheric 

!  information  only,  and  be  left  equal  to  1  or  0  the  rest  of  the  time. 

ECLUT  0.01  !  may  also  be  lECI  UT,  either  is  a  real  multiplier  for  e  clutter 
!  magnitude.  Should  be  used  to  reflect  specific  ionospheric 

!  information  only,  and  be  left  equal  to  1  or  0  the  rest  of  the  time. 

ORTHOMAG  .01  !  Maximum  value  of  orthogonality  induced  ionospheric  clutter 
ORTHOAPT  0. 1  !  Aperture  of  orthogonality  effect; 

!  largest  deviation  from  orthogonality  that  produces  clutter. 

!  the  ORTHO  variables  are  left  at  .01  in  this  case  because  if  they  are 
!  set  to  zero,  some  calculations  are  never  done.  This  is  reasonable 
!  unless  you  want  to  see  the  magnetic  aspect  angle  (labelled  ORTHO  deg 
!  on  the  output),  as  we  do  lately. 

!  This  file  is  a  legal,  unambiguous  input  file  just  as  it  stands.  All 
!  mutually  exclusive  options  are  resolved  by  considering  the  last 
!  input  only. 

!  EMULATE  !  good  idea  to  put  this  last  to  avoid  accidental  redefinition 
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2.)  Output 


The  output  from  RADARC  consists  of  a  number  of  tables  and  graphs  spread  over  three 
files.  The  PRINTOUT  keyword  determines  which  output  is  produced.  The  files  are  on  fortran 
units  10,  32,  and  34.  These  files  will  be  named  FOR010.DAT,  FOR032.DAT,  and 
FOR034.DAT,  unless  a  logical  assignment  was  made  to  reassign  the  unit  before  the  program 
was  executed.  These  files  will  be  referred  to  by  their  respective  logical  file  names  below. 

2.1)  FOROlO:  Single  frequency  rayset  tables 

These  tables  show  the  basic  geometry  calculated  by  the  program  together  with  the 
associated  propagation  characteristics.  Each  table  has  a  heading  which  reports  the  basic 
run  parameters,  and  a  body  which  reports  the  geometry  and  propagation  characteristics 
at  each  vertical  take-off  angle.  The  regular  mode  tables  differ  slightly  from  the  sporadic- 
E  mode  tables.  The  items  appearing  in  each  table  also  vary  with  the  run  options 
selected.  Regular  mode  example  rayset  tables  are  presented  in  figures  la,b.  Sporadic-E 
mode  example  rayset  tables  are  presented  in  figures  2a,b. 

Values  in  the  body  of  the  tables  are  identified  by  abreviated  column  headings. 
These  abreviations  are  described  below: 


COLUMN  1  This  unlabelled  column  holds  mode  information.  The  mode  symbols  used  in  this 
output  are  E,  1,  2,  S,  and  4-,  representing  the  regular  E,  F,,  F2,sporadic  E,  and 
over-the-MUFmodes,  respectively.  For  example,  ’E2’  denotes  a  regular  E  mode 
followed  by  an  F2  mode. 

ANG  or  the  vertical  take-off  angle  in  degrees  associated  with  the  predicted  rayset 

ELANG  geometry. 

HITE  the  ’average’  virtual  height  in  kilometers  for  all  hops. 

TIME  the  total  time  delay  in  milliseconds  for  the  ground  range  at  the  end  of  the  last  hop. 

GND  the  ground  range  in  nautical  miles  to  the  end  of  the  last  hop. 

SLANT  the  (1-way)  slant  range  in  nautical  miles  to  end  of  last  hop. 

C-AREA  the  radar  cross  section  (RCS)  of  the  sea/ground  resolution  cell  at  the  end  of  the 
last  propagation  hop.  This  RCS  is  the  product  of  the  resolution  cell  area  and  the 
surface  scattering  coefficient,  o".  In  this  sample  =  -29  dB. 

T-AREA  the  size  of  the  target  in  db  relative  to  1  square  meter. 

R4TH  total  two  way  free  space  loss  to  the  end  of  the  final  hop. 
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ABS 

DEV 

GNDLOS 

GT+GR 

CPINC 

ORTHO 

PROBE 

PROBE 

CPDB 

REF  or 
LOSS 

P-REC 

CNR 

SNR 

S 


total  non-deviative  absorption, 
total  deviative  absorption. 

total  ground  reflection  losses  in  db;  omitted  from  1  hop  tables, 
combined  transmit  and  receive  antenna  gain,  in  db. 

the  increment  to  ionospheric  clutter  power  in  db  due  to  orthogonality  of  the 
raypath  to  the  Earth’s  magnetic  fleld.  It  is  associated  with  the  input  key  words; 
SCRPLT,CCRPLT,  ORTHOAPT,  ORTHOMAG.  ’CPINC’  only  appears  on 
the  output  when  scrplt  or  ccrplt  is  selected,  and  its  magnitude  depends  on  orthoapt 
and  orthomag. 

the  angle  between  the  raypath  and  the  Earth’s  magnetic  field  at  the  target  range. 
This  column  appears  only  when  SCRPLT  or  CCRPLT  is  selected. 

the  predicted  probability  of  ionospheric  clutter  originating  in  the  E  layer.  This 
column  appears  only  when  SCRPLT  or  CCRPLT  is  selected. 

the  predicted  probability  of  ionospheric  clutter  originating  in  the  F  layer.  This 
column  appears  only  when  SCRPLT  or  CCRPLT  is  selected. 

the  total  ionospheric  clutter  power  resulting  from  the  predictions  of  CPINC, 
PROBE,  and  PROBF.  It  is  compared  to  other  noise  sources  and  the  greatest 
becomes  the  limiting  noise  for  the  prediction.  This  column  appears  only  when 
SCRPLT  or  CCRPLT  is  selected. 

total  reflection  losses  on  E,  modes 


the  predicted  signal  from  the  target,  associated  with  T-AREA,  in  dbW. 

the  ratio  of  the  signal  associated  with  C-AREA  to  the  greatest  noise  source.  (CNR 
and  SNR  differ  by  the  same  amount  as  C-AREA  and  T-AREA. 

the  ratio  of  the  signal  associated  with  T-AREA  to  the  greatest  noise  source.  (CNR 
and  SNR  differ  by  the  same  amount  as  C-AREA  and  T-AREA. 

the  ionospheric  sample  area  associated  with  the  last  hop.  It  is  ’associated’  because 
the  properties  of  this  sample  area  result  in  the  most  self-consistent  prediction 
geometry  available.  When  the  number  of  sample  areas  is  limited,  the  sample  area 
chosen  may  not  result  in  a  perfectly  self-consistent  prediction.  For  example, 
imagine  the  program  is  calculating  the  characteristics  of  the  second  hop  of  a  two- 
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hop  prediction.  The  characteristics  of  the  first  hop  are  known.  Let  us  say  the 
second  hop  begins  at  a  ground  distance  of  5000  nm.  The  properties  of  the  sample 
area  locat^  at  2500  nm  suggest  that  the  reflection  area  for  the  second  hop  should 
be  around  7500  nm  (geometry  just  like  the  first  hop).  So  the  program  performs 
a  calculation  for  the  sample  area  located  nearest  75(X)  nm,  but  the  properties  of 
that  sample  area  suggest  that  the  true  reflection  area  may  be  nearer  9000  nm.  If 
no  other  sample  is  available,  then  the  program  must  use  the  sample  at  7500  nm 
and  a  small  inconsistency  must  be  tolerated.  Were  other  samples  available  the 
program  would  attempt  to  home  on  the  best  one.  In  practice  this  effect  is  small 
unless  the  ionosphere  is  changing  rapidly  between  sample  areas. 
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FIGURE  2b:  Example  sporadic-E  mode  ravset  table,  (two  hop) 
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2.2)  FOR030:  Vertical  ionograms 


These  graphs  present  the  important  ionospheric  characteristics  of  each  sample  area.  The 
characteristics  are  summarized  in  a  small  table  in  the  upper  left  comer  of  the  plot.  In  this 
table  the  regular  layers  are  summarized  with  ’FC’,  the  layer  critical  frequency,  ’HC’,  the 
height  of  maximum  ionization,  and  ’YM’,  the  semithickness  of  the  layer.  The  sporadic-E 
layer  is  characterized  by  its  critical  frequency  distribution;  ’L’,’M’,  and  ’U’  are  the  low, 
median,  and  upper  deciles,  respectively.  The  plot  itself  is  entirely  composed  of  normal  text 
characters  and  will  print  correctly  on  any  common  printer.  See  figure  3  for  an  example. 
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2.3)  FOR030:  Combined  frequencies  range  plot 


These  graphs  present  the  backscatter  return  vs.  range.  They  can  be  generated  in  signal- 
to-noise  (target  return)  or  clutter-to-noise  (sea/ground  return)  vs.  ground  or  slant  range.  The 
symbols  composing  the  filled  curve  in  the  figure  represent  the  best  frequency  according  to 
the  key  at  the  bottom  of  the  figure.  This  figure  may  be  continued  for  up  to  three  pages  if 
the  predicted  radar  performance  demands  it.  Fortran  unit  32  has  a  nearly  identical  figure, 
differing  only  in  that  the  symbols  used  represent  propagation  mode  instead  of  frequency.  See 
figure  4,a,b,c  for  an  example  plot. 
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FIGURE  4c:  Sample  ranee  coverage  from  unit  30.  third  page 
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2.4)  FOR030:  Oblique  ionograms 


These  graphs  present  the  same  variables  as  the  range  plot,  but  in  a  different  form.  The 
ionograms  can  be  generated  in  signal -to-noise  (target  return)  or  clutter-to-noise  (sea/ground 
return).  The  symbols  composing  the  data  in  the  figure  represent  the  SNR/CNR  for  each 
frequency  and  delay.  The  data  on  the  bottom  line  (  zero  delay)  are  the  noise  reference  for 
each  frequency.  The  oblique  ionogram  is  generated  at  each  of  two  different  scales  in  time 
delay:  0  to  50  ms  in  steps  of  1  ms  (see  figure  5)  and  0  to  25  ms  in  steps  of  .5  ms  (see  figure 
6). 
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FTGURE  5:  Sample  oblique  ionogram  from  unit  30.  large  scale 
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FIGURE  6:  Sample  oblique  ionogram  from  unit  30.  small  scale 
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2.5)  FOR030:  Combined  mode/frequency  rayset  tables 


This  table  presents  the  same  information  as  the  rayset  tables  in  fortran  unit  10. 
However,  all  frequencies  and  modes  for  which  unit  10  raysets  were  generated  are 
represented.  The  sorting  algorithm  is  somewhat  similar  to  the  one  used  in  the  ’allmodes.dat’ 
output.  The  important  difference  is  that  this  table  contains  no  interpolated  values;  certain 
apparent  inconsistencies  are  possible.  The  intent  behind  the  table  is  to  organize  only  those 
raysets  which  contribute  to  the  top  of  the  envelope  in  the  backscatter  vs.  range  plots.  The 
inconsistency  arises  when  the  mode/frequency  providing  the  strongest  returns  is  changing 
rapidly  in  distance  for  small  changes  in  elevation;  change  on  the  order  of  100  km/degree  is 
sufficient.  When  this  rapid  change  occurs,  a  weaker  return  from  another  mode/frequency 
may  be  inserted  into  the  table  at  the  skipped-over  range.  The  intent  behind  ’allmodes.dat’ 
is  to  avoid  this  problem  by  filling  every  range  bin  with  the  appropriate  value,  occasionally 
using  interpolation  to  achieve  that  end.  See  figure  7  for  an  example.  Note  that  this  table  was 
truncated  at  a  slant  range  near  2600  NM,  normally  the  table  would  continue  to  the  longest 
slant  range  shown  in  the  range  coverage  plots. 


81 


17*OIC>lf92  lli3< 


jm  ffm  «  100  TINS  «  34  OUT 

MUMUl  LOCATIOH  SI. 44  M  lAT  70.14  W  LON  BSMIMG  «  37S.8  0  DBG 
PRAX  POWER  *  0.300  NW  POL8B  WIDTB  «  130.00  MICROBBC 

AVBRMB/PXAX  PWR  RATIO  «  0.0  DB  0TB  PATH  BNBANCBKSNT  s  6.0  DB 

ZWTBORATION  TDIB  »  9.10  BBC  (OR  4.9  DB) 


8-BVG 

PRBQ 

TZMB 

BXJU90 

BXTB 

OT«OR 

C-ARBA  T-ARBA 

R4TB 

ABS 

DBV 

DBF 

RBP 

8-L08 

T*L088 

P-RBC 

CHR 

8HR  MOZSB 

MM 

MBS 

HSBC 

DBO 

XN 

DB 

DB8N 

0B8M 

DBM 

DB 

DB 

DB 

OB 

DB 

DB 

DBW 

DB 

DB  DBW 

318 

5 

3.9 

33.0 

116 

44.4 

56.3 

17.0 

330.8 

32 

3 

6.7 

0 

0.0 

0.0 

35.4 

-99.1 

65 

9 

36.7  -160.1 

B 

336 

5 

4.0 

31.0 

114 

44.8 

56.3 

17.0 

331.3 

33 

0 

6.4 

0 

0.0 

0.0 

35.9 

•99.6 

65 

4 

36.2  -160.1 

B 

393 

6 

4.9 

17.0 

116 

47.3 

56.1 

17.0 

234.5 

31 

4 

6.3 

0 

0.0 

0.0 

34.3 

-100.4 

66 

6 

37.4  -162.1 

B 

457 

5.7 

15.0 

133 

48.7 

56.1 

17.0 

237.1 

18 

9 

7.3 

0 

0.0 

0.0 

33.6 

•101.3 

67 

4 

38.3  -163.8 

B 

481 

7 

6.0 

13.0 

115 

48.4 

56.3 

17.0 

338.0 

30 

7 

5.8 

0 

0.0 

0.0 

33.0 

•103.7 

66 

0 

36.7  -163.8 

B 

S38 

8 

6.7 

13.0 

133 

49.9 

56.3 

17.0 

240.0 

17 

9 

6.7 

0 

0.0 

0.0 

31.1 

-102.6 

67 

6 

38.4  -165.3 

B 

577 

8 

7.3 

10.0 

114 

49.3 

56.4 

17.0 

241.3 

19 

7 

5.4 

0 

0.0 

0.0 

31.6 

-104.7 

65 

5 

26.1  -165.3 

B 

637 

9 

7.9 

9.0 

118 

49.8 

56.4 

17.0 

243.9 

17 

3 

6.0 

0 

0.0 

0.0 

39.8 

-105.0 

66 

5 

37.1  -166.6 

B 

681 

9 

8.4 

38.0 

330 

44.9 

57.3 

17.0 

344.1 

8 

3 

9.3 

9 

0.0 

0.0 

36.8 

-107.4 

64 

1 

34.0  -166.6 

2 

746 

10 

9.3 

7.0 

130 

49.3 

56.6 

17.0 

245.6 

16 

3 

5.8 

0 

0.0 

0.0 

38.5 

-107.9 

64 

8 

35.3  -167.7 

B 

785 

10 

9.7 

6.0 

116 

48.1 

56.8 

17.0 

246.5 

16 

9 

5.1 

0 

0.0 

0.0 

38.5 

•109.6 

63 

0 

33.3  -167.7 

B 

849 

10 

10.5 

30.0 

310 

51.6 

57.4 

17.0 

347.9 

9 

0 

8.4 

9 

0.0 

0.0 

38.8 

-107.1 

65 

5 

35.1  -167.7 

3 

876 

11 

10.9 

30.0 

331 

51.4 

57.0 

17.0 

348.4 

7 

8 

8.1 

6 

0.0 

0.0 

26.0 

-106.4 

67 

3 

27.3  -168.8 

3 

959 

13 

11.9 

18.0 

338 

52.4 

57.0 

17.0 

350.0 

7 

3 

7.8 

5 

0.0 

0.0 

35.1 

-106.7 

67 

9 

37.9  -169.7 

3 

983 

13 

13.3 

17.0 

333 

53.1 

57.1 

17.0 

350.4 

7 

6 

7.7 

0 

0.0 

0.0 

35.8 

•107.1 

67 

6 

27.5  -169.7 

3 

1044 

13 

13.9 

15.0 

316 

54.3 

57.3 

17.0 

351.5 

8 

3 

7.3 

5 

2 

0.0 

0.0 

27.3 

-108.3 

66 

4 

36.1  -169.7 

2 

1080 

13 

13.4 

18.0 

377 

49.9 

57.3 

17.0 

353.0 

9 

8 

3.4 

8 

0.0 

0.0 

21.5 

-108.3 

67 

3 

37.1  -170.6 

2 

1148 

13 

14.3 

16.0 

371 

51.4 

57.4 

17.0 

353.1 

10 

7 

3.4 

7 

0.0 

0.0 

23.3 

-109.3 

66 

2 

35.8  -170.6 

2 

1181 

14 

14.6 

16.0 

384 

51.8 

57.3 

17.0 

353.6 

9 

4 

3.3 

9 

0.0 

0.0 

31.3 

-108.0 

68 

3 

38.0  -171.4 

2 

1353 

14 

15.5 

14.0 

376 

53.0 

57.4 

17.0 

354.6 

10 

3 

3.1 

9 

0.0 

0.0 

22.9 

-109.4 

67 

0 

36.4  -171.4 

2 

1300 

15 

16.1 

14.0 

393 

53.6 

57.3 

17.0 

355.3 

9 

3 

3.3 

1 

0.0 

0.0 

21.0 

-108.4 

68 

7 

38.4  -172.2 

3 

1330 

15 

16.5 

13.0 

385 

53.7 

57.4 

17.0 

355.7 

9 

6 

3.0 

6 

0.0 

0.0 

21.8 

•109.4 

67 

8 

37.3  -172.3 

3 

1407 

16 

17.4 

13.0 

414 

54.3 

57.7 

17.0 

356.6 

8 

6 

3.6 

9 

0.0 

0.0 

30.6 

-108.8 

69 

0 

38.3  -173.9 

3 

1439 

16 

17.7 

13.0 

401 

54.5 

57.7 

17.0 

356.9 

9 

0 

3.3 

4 

0.0 

0.0 

31.1 

-109.4 

68 

4 

27.7  -172.9 

2 

1513 

16 

18.7 

10.0 

386 

54.3 

57.9 

17.0 

357.9 

9 

9 

2.9 

7 

0.0 

0.0 

23.0 

•112.3 

65 

5 

34.6  -173.9 

3 

1557 

17 

19.3 

11.0 

425 

54.9 

58.1 

17.0 

358.4 

8 

5 

3.6 

3 

2 

0.0 

0.0 

20.8 

•110.4 

68 

1 

27.0  -173.6 

2 

1576 

17 

19.5 

10.0 

408 

54.8 

58.1 

17.0 

358.6 

8 

9 

3.3 

3 

8 

0.0 

0.0 

31.4 

•111.3 

67 

3 

26.1  -173.6 

3 

1647 

16 

30.4 

8.0 

384 

52.3 

58.3 

17.0 

359.4 

10 

9 

2.9 

5 

3 

0.0 

0.0 

35.6 

-117.9 

59 

9 

18.6  -172.9 

3 

1678 

17 

30.8 

8.0 

394 

53.0 

58.4 

17.0 

359.7 

9 

8 

3.8 

3 

0.0 

0.0 

33.3 

•115.8 

63 

7 

21.3  -173.6 

3 

1735 

18 

31.4 

9.0 

436 

54.5 

58.5 

17.0 

260.3 

8 

5 

3.6 

7 

0.0 

0.0 

31.3 

•113.1 

66 

1 

34.6  -174.2 

3 

1801 

18 

33.3 

7.0 

409 

53.4 

58.7 

17.0 

360.9 

9 

3 

3.9 

1 

0.0 

0.0 

33.8 

-117.3 

61 

8 

30.3  -174.2 

a 

1865 

18 

33.1 

6.0 

403 

51.1 

58.8 

17.0 

361.5 

9 

7 

3.7 

8 

0.0 

0.0 

33.7 

-130.0 

59 

1 

17.3  -174.2 

3 

1910 

17 

33.6 

5.0 

389 

47.9 

58.9 

17.0 

362.0 

11 

a 

3.7 

6 

0.0 

0.0 

37.1 

-136.4 

53 

1 

10.3  -173.6 

a 

1937 

19 

33.9 

7.0 

453 

53.0 

58.9 

17.0 

363.1 

8 

5 

3.7 

3 

0.0 

0.0 

31.9 

-117.1 

63 

6 

30.7  -174.8 

3 

3017 

19 

35.0 

5.0 

434 

48.7 

59.1 

17.0 

363.9 

9 

3 

3.0 

6 

0.0 

0.0 

33.3 

-133.4 

56 

3 

14.3  -174.8 

2 

3037 

18 

35.1 

4.0 

396 

45.5 

59.1 

17.0 

363.0 

10 

5 

3.6 

3 

0.0 

0.0 

35.8 

-138.8 

50 

3 

8.3  -174.2 

3 

3090 

19 

35.9 

4.0 

416 

45.7 

59.3 

17.0 

363.5 

9 

5 

.3.8 

3 

0.0 

0.0 

34.0 

-137.7 

53 

8 

9.8  -174.8 

a 

3167 

13 

36.8 

19.0 

394 

49.3 

60.3 

17.0 

364.1 

33 

3 

8.8 

5 

0.0 

0.5 

40.6 

-137.1 

38 

5 

-4.8  -170.6 

3 

3189 

30 

37.1 

5.0 

483 

49.1 

59.5 

17.0 

364.3 

8 

4 

4.9 

8 

0.0 

0.0 

33.7 

•133.9 

56 

4 

13.9  -175.4 

a 

3338 

30 

37.6 

4.0 

463 

45.8 

59.6 

17.0 

364.6 

8 

7 

3.6 

3 

0.0 

0.0 

33.1 

-137.9 

53 

4 

9.9  -175.4 

2 

3394 

30 

38.4 

3.0 

451 

39.8 

59.7 

17.0 

365.1 

9 

0 

3.3 

8 

0.0 

0.0 

33.6 

-134.8 

45 

5 

2.8  -175.4 

3 

3371 

14 

39.4 

17.0 

403 

51.0 

60.4 

17.0 

365.7 

31 

4 

8.6 

6 

0.0 

0.6 

39.6 

•136.4 

39 

9 

-3.5  -171.4 

2 

3433 

14 

30.0 

16.0 

396 

51.8 

60.5 

17,0 

366.1 

33 

3 

8.4 

4 

0.0 

0.6 

41.3 

-137.4 

39 

0 

-4.5  -171.4 

3 

3434 

30 

30.1 

3.0 

463 

33.8 

59.9 

17.0 

366.3 

13 

4 

4.1 

7 

0.0 

0.0 

38.8 

•146.7 

33 

6 

-9.4  -175.4 

2 

3499 

14 

30.9 

15.0 

393 

53.4 

60.6 

17.0 

366.6 

33 

3 

8.3 

4 

0.0 

9.9 

52.3 

-148.4 

28 

0 

-15.6  -171.4 

2 

FIGURE  7:  Sample  combined  frequencv/modes  table. 
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2.6)  FOR032:  Single  frequency  range  plots 


These  graphs  present  the  backscatter  return  vs.  range  for  each  frequency.  They  can  be 
generated  in  signal-to-noise  (target  return)  or  clutter-to-noise  (sea/ground  return)  vs.  ground 
or  slant  range.  The  symbols  composing  the  filled  curve  in  the  figure  represent  the  mode  with 
the  highest  SNR/CNR  according  to  the  key  at  the  bottom  of  the  figure.  This  figure  may  be 
continued  for  up  to  three  pages  if  the  predicted  radar  performance  demands  it  (See  figure 
8a, b).  Fortran  unit  30  has  a  similar  figure,  differing  only  in  that  all  frequencies  run  are 
included,  and  the  symbols  used  represent  frequency  instead  of  propagation  mode. 
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FIGURE  8b:  Single  frequency  range  coverage  from  unit  32  (second  page) 
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2.7)  FOR032;  Single  frequency  angle  coverage 


These  graphs  present  the  rayset  geometry  in  a  different  form.  The  mode  is  plotted  as 
a  function  of  elevation  angle  and  time  delay.  The  leftmost  curve  for  each  mode  is  the  one- 
hop;  the  hop  increases  by  one  for  each  curve  per  mode,  read  left-to-right.  The  mode 
symbols  are  and  '  +  '  for  the  sporadic-E,  F,,  F2,  and  over-the-MUF  modes, 

respectively.  The  figure  may  be  continued  up  to  three  pages  if  necesssary  (See  figure  9a,b). 
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FIGURE  9a:  Sample  single  frequency  angle  coveraee  from  unit  32 
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2.8)  ALLMODES.DAT:  Combined  envelope  rayset  tables 


This  table  presents  the  same  information  as  the  rayset  tables  in  fortran  unit  10  and  the 
combined  raysets  of  fortran  unit  30.  However,  all  frequencies  and  modes  for  which  unit  10 
raysets  were  generated  are  represented,  and,  although  the  sorting  algorithm  is  somewhat 
similar  to  the  one  used  in  the  fortran  unit  30  output,  this  table  contains  interpolated  values. 
The  sorting  algorithm  traces  the  envelope  of  each  mode,  rather  than  the  discrete  raysets. 
Values  of  the  interpolated  envelope  then  fill  range  bins  that  would  otherwise  fall  through  to 
a  weaker  return.  The  intent  behind  the  table  is  to  organize  only  those  raysets  which 
contribute  to  the  top  of  the  envelope  in  the  backscatter  vs.  range  plots.  The  match  is  good 
even  when  the  mode/frequency  providing  the  strongest  returns  is  changing  rapidly  in  distance 
for  small  changes  in  elevation.  When  this  rapid  change  occurs,  a  weaker  return  from  another 
mode/frequency  will  be  covered  by  the  envelope  of  the  strongest  return.  The  items  in  the 
table  are  similar  to  the  fortran  unit  10  items,  with  two  exceptions.  The  column  labelled 
’NOISE’  does  not  appear  in  fortran  unit  10  rayset  tables  because  the  noise  reference  is 
constant  for  constant  frequencies.  This  table  may  have  different  frequencies,  hence  the  need 
for  a  noise  reference  in  the  body  of  the  table.  In  the  last  column  (unlabelled  to  save  space) 
is  a  mode  symbol.  This  is  identical  to  the  mode  symbols  in  the  fortran  unit  10  raysets, 
except  when  the  rayset  has  been  calculated  by  interpolation  of  the  envelope.  In  this  case  the 
mode  symbol  will  be  ’  -  All  raysets  not  marked  as  interpolated  are  actual,  calculated 
raysets  that  match  raysets  in  fortran  unit  10.  See  figure  10  for  an  example. 
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27.4  -171.4 

2 

1278. 

15.0 

15.82 

15.0 

404. 

52.9 

57.3 

17.0 

255.0 

8.8 

3.4 

1.4 

0.0 

0.0 

20.5 

-108.3 

48.8 

28.5  -172.2 

2 

1300. 

15.0 

14.09 

14.0 

394. 

53.4 

57.3 

17.0 

255.3 

9.2 

3.3 

2.1 

0.0 

0.0 

21.0 

-108.4 

46.7 

28.4  -172.2 

2 

1375. 

15.0 

17.01 

12.0 

381. 

53.8 

57.5 

17.0 

256.2 

10.1 

3.0 

3.2 

0.0 

0.0 

22.6 

-110.7 

44.4 

25.9  -172.2 

2 

1403. 

14.0 

17.37 

14.0 

433. 

54.2 

57.7 

17.0 

256.4 

8.2 

4.2 

1.4 

0.0 

0.0 

20.3 

-108.7 

49.1 

28.4  -172.9 

2 

1447. 

14.0 

18.15 

11.0 

393. 

54.4 

57.8 

17.0 

257.4 

9.4 

2.9 

3.0 

0.0 

0.0 

21.9 

-110.7 

47.1 

24.3  -172.9 

2 

1514. 

14.0 

18.73 

10.0 

387. 

54. 2 

57.9 

17.0 

257.9 

9.9 

2.9 

3.7 

0.0 

0.0 

23.0 

-112.3 

45.5 

24.6  -172.9 

2 

1553. 

17.0 

19.22 

12.0 

447. 

54.9 

58.1 

17.0 

258.4 

8.1 

4.2 

1.7 

0.0 

0.0 

20.5 

-110.0 

48.5 

27.4  -173.4 

2 

1400. 

17.0 

19.80 

13.1 

491. 

54.5 

58.2 

17.0 

258.9 

7.7 

5.4 

1.3 

0.0 

0.0 

21.1 

-111.3 

47.2 

24.0  -178.5 

1450. 

17.0 

20.42 

13.5 

520. 

54.4 

58.4 

17.0 

259.4 

7.4 

4.7 

1.2 

0.0 

0.0 

22.0 

-112.7 

45.8 

24.5  -178.5 

1719. 

18.0 

21.28 

10.0 

440. 

55.4 

58.5 

17,0 

240.1 

8.1 

4.2 

2.1 

0.0 

0.0 

20.9 

-111.8 

47.4 

25.9  -174.2 

2 

1747. 

18.0 

21.84 

11.0 

504. 

55.4 

58.4 

17.0 

240.4 

7.7 

5.5 

1.4 

0.0 

0.0 

21.4 

-112.4 

44.5 

24.9  -174.2 

2 

1800« 

18.0 

22.28 

11.1 

520. 

5S.4 

58.7 

17.0 

240.9 

7,7 

4.3 

1.4 

0.0 

0.0 

22.1 

-113.4 

45.4 

23.9  -179.1 

1850. 

18.0 

22.90 

11.3 

54$. 

55.3 

$8.8 

17.0 

241.3 

7.4 

7.5 

1.5 

0.0 

0.0 

23.2 

-115.0 

44.1 

22.3  -179.1 

1925. 

19.0 

23.82 

8.0 

481. 

54.3 

58.9 

17.0 

242.1 

8.1 

4.3 

2.4 

0.0 

0.0 

21.5 

-115.4 

44.3 

22.3  -174.8 

2 

1984. 

19.0 

24.54 

9.0 

532. 

55.2 

59.1 

17.0 

242.4 

7.7 

5.9 

2.1 

0.0 

0.0 

22.2 

-115.4 

44.1 

22.0  -174.8 

2 

2021. 

20.0 

25.01 

8.0 

514. 

54.9 

59.2 

17.0 

242.9 

7.4 

8.8 

0.0 

0.0 

0.0 

22.7 

-117.1 

43.2 

21.1  -175.4 

4 

2070. 

18.0 

25.41 

12.0 

455. 

55.3 

59.3 

17,0 

243.3 

7.3 

12.9 

1.2 

O.o 

0.0 

27.9 

-1  1.3 

57.9 

15.5  -174.2 

2 

2100. 

19.0 

25.99 

3.9 

414. 

45.0 

59.3 

17,0 

243.4 

9.4 

2.8 

5.3 

0.0 

0.0 

24.1 

-128.5 

51.2 

8.4  -179.7 

2191. 

20.0 

27.12 

4.0 

514. 

52.4 

59.5 

17,0 

244.3 

8.1 

4.9 

3.2 

0.0 

0.0 

22.7 

-120.4 

59.7 

17.2  -175.4 

2 

2200. 

20.0 

27.23 

4.1 

521. 

52.5 

59.5 

17.0 

244.4 

8.0 

5.1 

3.1 

0.0 

0.0 

22.8 

-120.7 

59.4 

17.1  -180.3 

2250. 

20.0 

27.85 

4.4 

551. 

52.9 

59.4 

17.0 

244.8 

7.9 

5.9 

2.9 

0.0 

0.0 

23.3 

-121.1 

59.2 

14.4  -180.3 

2343. 

20.0 

29.00 

7.0 

607. 

53,7 

59.8 

17.0 

265.5 

7.7 

7.5 

2.4 

0.0 

0.0 

24.3 

-121.8 

58.4 

15.6  -175.4 

2 

2350. 

20.0 

29.08 

2.4 

454. 

37.4 

59.8 

17.0 

265.5 

10.4 

3.4 

5.2 

0.0 

0.0 

25.7 

-139.5 

40.7 

-2.0  -180.3 

2423. 

14.0 

29.99 

14.0 

397. 

51.8 

40.5 

17.0 

246.1 

22.3 

8.4 

3.4 

0.0 

0.6 

41.2 

-137.4 

39.0 

-4.5  -171.4 

22 

2470. 

14.0 

30.57 

21.0 

494. 

48.4 

40.7 

17.0 

244.4 

18.3 

14.0 

0.7 

0.0 

0.5 

42.0 

-141.8 

34.5 

-9.1  -171.4 

22 

2500. 

14.0 

30.94 

21.1 

503. 

48.3 

40.7 

17.0 

244.4 

18.2 

17.0 

0.7 

0.0 

0.5 

42.9 

-142.9 

33.5 

-10.2  -176.4 

2579. 

21.0 

31.92 

3.0 

551. 

40.1 

40.2 

17,0 

247.2 

11.1 

5.4 

4.2 

0.0 

0.0 

27.4 

-140.3 

40.4 

-2.4  -175.9 

2 

2432. 

21.0 

32.57 

2.0 

531. 

34.0 

40.3 

17,0 

247.5 

11.4 

5.2 

4.4 

0.0 

0.0 

27.7 

-144.9 

33.9 

-9.4  -175.9 

2 

2458. 

15.0 

32.89 

14.0 

405. 

53.4 

40.4 

17,0 

247.7 

21.4 

8.0 

3.9 

0.0 

9.5 

49.5 

-144.2 

31.0 

-12.5  -172.2 

22 

2737. 

15.0 

33.87 

13.0 

400. 

53,7 

40.5 

17.0 

248.2 

22.7 

7.9 

5.0 

0.0 

0.7 

42.8 

-139.8 

37.3 

-6.2  -172.2 

22 

2750. 

15.0 

34.03 

12.9 

399. 

53.7 

40.4 

17.0 

248.3 

22.8 

7.9 

5.2 

0.0 

0.7 

43.1 

-140.1 

37.0 

-6.4  -177.1 

2840. 

14.0 

35.14 

14.0 

440. 

54.2 

40.7 

17.0 

248.8 

19.4 

9.5 

2.5 

0.0 

0.7 

38.4 

-134.1 

41.7 

-2.0  -172.9 

22 

2841. 

14.0 

35.41 

13.0 

423. 

54.3 

40.7 

17,0 

249.0 

20.3 

8.4 

3.4 

0.0 

0.7 

39.4 

-134.9 

41.0 

-2.8  -172.9 

22 

2900. 

14.0 

35.89 

15.2 

478. 

53.2 

40.8 

17.0 

249.2 

18.3 

12.1 

1.7 

0.0 

0.7 

39.3 

-138.0 

39.8 

-4.0  -177.8 

2950. 

14.0 

34.51 

15.4 

494. 

52.9 

40.9 

17,0 

249.5 

18.0 

13.3 

1.5 

0.0 

0.4 

40.0 

-139.3 

38.4 

-5.4  -177.8 

3004. 

14.0 

37.17 

14.0 

515. 

52.4 

41.0 

17.0 

249.8 

17.7 

14.7 

1.3 

0.0 

0.4 

40.8 

-140.6 

37.2 

-6.8  -172.9 

22 

3050. 

14.0 

37.75 

10.4 

405. 

54.3 

41.0 

17.0 

270.1 

22.7 

7.5 

4.5 

0.0 

0.9 

44.1 

-142.4 

35.4 

-8.6  -177.8 

3139. 

17.0 

38.85 

12.0 

453. 

54.9 

41.1 

17.0 

270.4 

19.1 

9.4 

3.2 

0.0 

0.8 

39.0 

-137.4 

40.9 

-3.3  -173.6 

22 

3184. 

17.0 

39.43 

13.0 

485. 

54.4 

41.2 

17.0 

270.8 

18.2 

11.3 

2.3 

0.0 

0.8 

39 . 1 

-138.3 

40.2 

-4.0  -173.6 

22 

3200. 

17.0 

39.40 

13.1 

490. 

54.4 

41.2 

17.0 

270.9 

18.2 

11.4 

2.3 

0.0 

0.8 

39.3 

-138.6 

39.9 

-4.3  -178.5 

)2S0. 

17.0 

40.22 

13.3 

504. 

54.5 

41.3 

17,0 

271.2 

18.0 

12.8 

2.1 

0.0 

0.8 

40.1 

-139.6 

38.9 

-5.4  -178.5 

3300. 

17.0 

40.84 

13.5 

521. 

54.4 

41.4 

17.0 

271.4 

17,8 

13.9 

1.9 

0.0 

0.7 

40.8 

-140.6 

37.9 

-6.5  -178.5 

3398. 

17.0 

42.04 

14.0 

552. 

54.3 

41.5 

17,0 

272.0 

17.4 

16.1 

1.4 

0.0 

0.7 

42.3 

-142.6 

35.9 

-8.6  -173.6 

22 

FIGURE  10:  Sample  ALLMODES.DAT  combined  envelope  table. 
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2.9)  FOR034:  Diagnostics 


This  file  contains  diagnostic  and  intermediate  output,  used  to  debug  the  program.  It  is  not 
intended  to  be  generally  useful  and  is  subject  to  change.  Since  the  contents  of  fortran  34  are 
constantly  changing  no  attempt  is  made  here  to  document  them  fully.  Suffice  it  to  say  that  this 
large  and  generally  useless  file  need  not  be  generated;  just  don’t  use  ’printout  3’.  Now,  with 
that  said,  there  is  a  potentially  useful  table  at  the  top  of  this  file.  It  lists  most  of  the  values  of 
the  input  parameters.  If  you  have  difficulty  with  a  keyword,  at  least  you  may  be  able  to 
determine  whether  it’s  getting  in  correctly.  Unfortunately,  not  all  input  keywords  and  their 
values  are  reported.  See  the  following  figure  11  for  a  sample  of  the  input  echoed  in  unit  34. 
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SITBLRT 

51.44000 

SZTRLOMO 

79.14000 

ASZNOTB 

275.0000 

PRIO 

5.00000 

nPOVBR 

0.2000000 

POLSBHZDTB 

120.0000 

CIT 

3.100000 

moist 

-5 

RMTTYPB 

12 

TZMI 

24.00000 

TlAft 

1991 

MOMTI 

4 

51.44000 

79.14000 

•1.000000 

26.00000 

51.01030 

120.0000 


12 

0 


fOMSPOT 

run 

KP 
POt 
POPl 
POP2 
PQU 

MMnrxDra 
*T 
KPAC 
L8CM 
PCLOT 
•olut 
TAMXSS 
SUP  vs  PAMQt  PLOTS 
SLMT  MNOI  PLOTS 
imOUL  SaNNMlT  PROnOOT 

♦  2]n>IV2I«RL  PRBODtUCT  PRIHTOOT 

♦  DZMMOSTIC  PRUfTOOT 


100.0000 

115.0030 

-1.700000 

1.000000 

1.000000 

1.000000 

0.7000000 

8333.533 

1.000000 

5.000000 

0 

9.99999961-03 

9.9999996B-03 

17.00000 


1.000000 

120 


<  aor*  cryptic  date  t#ould  follow  > 

FIGURE  1 1 :  Partial  output  from  unit  34:  echo  of  input  values 
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PART  III 

FORTRAN  implementation  details 


93 


1.)  Program  description  of  RAD  ARC 

The  purpose  of  part  III  is  to  walk  the  reader  through  the  flow  of  RADARC,  and  to  provide 
such  program  information  as  will  facilitate  the  efforts  of  any  user  who  wishes  to  understand  the 
implementation  details.  A  brief  description  of  the  function  each  routine  performs  accompanies 
the  implementation  information.  These  comments  will  be  general  enough  to  inform  the  reader 
who  is  unfamiliar  with  programming  or  specifically  with  the  FORTRAN  language.  The  reader 
should  be  forewarned  that  the  structure  is  complicated  and  much  care  should  be  taken  when 
changes  to  the  code  are  considered. 

Chart  1  is  a  diagram  of  RADARC  showing  the  general  flow  of  the  program  calls.  There  are 
four  main  subroutines  that  control  the  flow  of  RADARC.  A  short  description  of  each  of  these 
"main"  subroutines  is  presented  here;  descriptions  of  the  rest  of  the  subroutines  follow.  The 
major  output  is  generated  in  subroutines  AMPALL,  SNRPLT,  OPLOT,  SETPLT  and  VPLOT. 

lONGEN  Retrieves  the  input  data  supplied  by  the  user  and  developes  the  ionospheric 
parameters  for  the  three  layers  (E,  FI,  and  F2). 

BAKSCT  Backscatter  control  routine  that  calculates  the  vertical  ionograms,  reflectrix, 
oblique  paths  for  all  frequencies,  and  calculates  and  organizes  some  output. 

RADAR  Takes  the  oblique  information  from  BAKSCT  and  evaluates  the  system 
parameters,  losses,  and  calculates  sporadic-E  modes  and  losses. 

SLANTY  Gathers  all  information  on  modes,  losses,  and  environmental  noise  and  puts 
it  in  the  form  of  the  radar  equation;  it  also  gets  the  spread  Doppler  clutter  by 
a  call  to  ABILITY. 
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1.1)  List  of  program  routines  with  a  short  description 

RADARC  -  Main  program  ■  \  controls  all  functions,  sets  named  common,  some  data; 

gets  date/time,  and  set  >r  function  to  avoid  certain  unwanted  warnings  during 

execution. 

lONGEN  -  Called  by  main  program  liADARC  to  determine  input  and  calculate  ionospheric 
variables. 

PRESET  -  Sets  predefined  program  control  variables;  used  in  lieu  of  block 
data. 

READIN  -  Reads  the  program  control  (input)  variables  from  user  input  file  on  FOROll. 

FICOF  -  Determines  data  base  and  calculates  FI -layer  parameters  from  monthly  numerical 
coefficients 

REDMAP  -  Reads  the  longterm  ionospheric  data  file. 

GEOM  -  Calculates  geographic  and  geomagnetic  parameters 

CORDY  -  Calculates  latitude  and  longitude  of  a  point,  given  distance  and  azimuth  from  a 
known  point. 

MAGYAR  -  Calculates  magnetic  field  and  gyro-frequency. 

MAGFIN  -  Cacluates  the  three  magnetic  field  vectors. 

MAP  -  Digitized  map  of  the  land  boundries  of  the  world 

VERTIM  -  Calculates  the  time  variation  of  ionospheric  variables  for  sample  areas. 

ESIND  -  Calculates  the  sporadic-E  MUF  by  a  call  to  VERSY  (see  above).  Data  for  the  E^- 
layer  was  calculated  in  REDMAP  (see  above). 

TIM  VAR  -  Calculates  time  dependence  of  the  numerical  maps  of  ionospheric  variables. 

EFl  VAR  -Calculates  E  and  FI -layers  ionospheric  variables. 

VERSY  -  Calculates  geographic  variation  of  the  numerically  mapped  ionospheric  variables. 
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YMAP  -  Calculates  the  F2-layer  semi-thickness  from  numerical  coefficients 

F2VAR  -  Uses  F2-layer  numerical  maps  calculated  by  VERSY  (see  above) 

POLARC  -  Determines  the  polar  corrections  for  auroral  oval  and  trough  calculations  when 
requested  in  the  input  file 

CGMTIM  -  Determines  corrected  geomagnetic  time  by  entry  point  to  subroutine  CLOCKS 

JULIAN  -  Converts  Gregorian  date  to  Julian  day;  day  set  for  15th  of  month 

GYRE  -  Computes  solar  ephemeris  data  of  prediction  time,  in  particular,  right  ascension, 
declination  of  sun  and  Greenwich  SID  time 

GIMBAL  -  Updates  the  solar  emphemeris  data  computed  by  GYRE  to  sidereal,  corrected 
geomagnetic,  and  earth  centered  dipole  magnetic  time. 

GEOMAG  -  Converts  a  point  given  in  geographic  coordinates  to  the  corresponding 
corrected  geomagnetic  coordinates 

DIPOLE  -  Converts  from  geographic  coordinates  to  earth  centered  dipole  system 

COSD  -  Computes  great  circle  distance  between  points  on  earth 

BCKSCT  -  A  call  to  INPUT  obtains  previously  generated  ionospheric  parameters  needed 
to  calculate  the  electron  density  profile.  INPUT  calls  INLEC,  which  reads  electron 
density  profiles  or  virtual  heights  (ionograms).  This  is  a  seldom  used  option. 

ZERO  -  (Re)initializes  data  arrays. 

LECDEN  -  Calculates  the  electron  density  profiles  (parabolic  layers)  from  the  parameters 
read  in  by  INPUT. 

GENION  -  Integrates  the  true  height  electron  density  profiles  to  obtain  a  virtual  height 
profile  that  will  be  used  for  all  calculation  from  this  point  forward 

ALOSFV  -  Calculates  the  deviative  loss  factors  from  the  virtul  height  profile. 

FOBBY  -  Generates  the  reflectrix  and  determines  oblique  frequencies. 

CUSPFV  -  Computes  values  of  the  frequency/height  parameters  about  the  cusp  and  puts  in 
reasonably  smooth  values  that  resemble  those  scaled  from  actual  ionograms. 
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HEAD99  -  Writes  header  information  to  FOR099.DAT  for  use  on  the  combined  rayset 
tables  in  FOR030  and  ALLMODES.DAT. 

AMP  ALL  -  Plot  routine  that  sets  up  line  printer  character  plots  of  signal-to-  noise  ratio  for 
all  frequencies  and  all  modes  of  propagation. 

SNRPRT  -  Routine  that  sets  up  variables  and  prints  the  tabular  output 

OPLOT  -  Plots  the  oblique  ionograms  for  all  frequencies  and  power  levels. 

READ99  -  Generates  and  prints  the  combined  rayset  table  in  FOR030. 

REA992  -  Generates  and  prints  the  combined  rayset  table  in  ALLMODES.DAT. 

RADAR  -  Backscatter  control  routine.  Searches  the  oblique  frequency  tables  for  the 
reflectrix  with  constant  frequency.  If  over  the  MUF  these  losses  are  calculated.  Then 
the  backscatter  returns  are  computed. 

ANTOO  -  Table  look-up  of  gains  for  the  selected  antenna 

TARGET  -  Computes  the  target  size  in  dB  above  1  meter^ . 

SELION  -  Selects  the  closest  control  area  to  the  ionospheric  reflection.  The  ionospheric 
description  at  this  control  point  is  selected  to  represent  the  spherically  symmetric  model 
used  over  the  that  hop, which  permits  quick  closed-form  ray  path  calculations. 

SELDST  -  Calculates  all  distances  for  iongoram  generation 

SETION  -  Determines  the  system  losses.  It  calls  SIGNT,  a  routine  that  permits  a  desired 
sea  or  land  backscatter  coefficient  to  be  used.  Adjustments  have  been  made  to  this 
routine  to  detemimine  losses  over  the  MUF. 

SIGNT  -  Sets  backscatter  coefficient  of  earth’s  surface 

ESDIS  -  Calculates  probability  of  sporadic-E  modes  and  determine  losses 

GAUSS  -  Solves  the  probability  function 

SLANTY  -  Finds  the  raysets  for  the  E,  FI,  and  F2  layers.  This  routine  gathers  all  results 
and  puts  them  in  the  form  of  radar  equation. 

CGMCS  -  Calculates  corrected  geomagnetic  coordinates 


98 


SYSSY  -  Determines  auroral  loss  from  tables 

CHANY  -  Calculates  man-made  and  galactic  noise  level  at  receiver 

NOISY  -  Computes  atmospheric  noise  levels  from  numerical  maps 

GENFAM  -  Determines  frequency  dependence  of  atmospheric  noise 

ABILITY_V3  -  Calcultes  spread  Doppler  clutter  by  Elkins  method 

GLOSS  -  Calculates  the  reflection  loss  per  hop  for  multi-hop  paths 

CUSPIN  -  Calculates  angles  for  the  modified  cusp  values  of  E-Fl  and  fl-F2  layers 

ESSNR  -  Determines  raysets  and  all  variables  used  in  RADAR  equation  associated  with 
sporadic-E  modes. 

BRING  -  Calculates  bearing  from  one  point  on  the  globe  to  another,  given  the  geographic 
coordinates  of  the  points. 

DTOG  -  Computes  complex  function  of  three  variables 
FPOK  -  Determines  probability  of  spread  Doppler 

PEIR-  Computes  the  value  of  E-layer  clutter  probability  (F-layer  clutter  with  entry  point 
PFIR) 

MERFI  -  Inverse  error  function 

PINCLY  -  Determines  overall  magnetic  field  by  summation 

SOLR  -  Updates  orbital  elements  of  of  epoch 

FKEP  -  Calculates  true  anomaly  for  Julian  day 

XFR3  -  Computes  rotation  matrix  element 

SETPLT  -  Plot  control  routine  that  sets  up  variables  to  be  plotted 

ALLFREQ  -  Plots  range  vs  amplitude  showing  which  frequency  was  best  at  each  range 
interval 


99 


AMPLOT  -  Same  as  allfreq,  but  shows  best  mode  at  each  range  interval 
ESTERP  -  Sets  indicies  for  sporadic  E-layer  printer  plots 
INTERP  -  Sets  indicies  for  regular  layer  printer  plots  (E,F1,  and  F2) 
CPTERP  -  Sets  indicies  for  plot  cusp  inserts 

CUSPSG  -  Calculates  ray  sets  in  the  cusp  region  between  regular  layers 
SETCP  -  Finds  signal-to-noise  values  for  cusp  region 
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1.2)  Chart  of  RAD  ARC  calling  structure 

RADARC  DIAGRAM 
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rcon't] 


5 


1.3)  Individual  module  implementation  information 


This  section  section  lists  the  routines  in  alphabetical  order  and  provides  some  information 
about  the  arguments  in  the  calls  (if  any),  the  purpose  of  the  routines,  which  common  data 
areas  are  accessed  (if  any),  what  variables  and  arrays  are  defined,  and  what  functions  and 
subroutines  each  routine  in  turn  references. 
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Module:  ABILITY  V3 


CALL:  SUBROUTINE  ABILITy_V3  (FREQ, DELAY, TOA,ABPSl,VHIGH, 

1  ATMON,  GMT, MON, RANGE, AZIM,NHOPS, 

2  CPDB) 


Call  arguments: 

FREQ  Current  operating  frequency,  MHz. 

DELAY  Total  slant  time  delay,  ms. 

TOA  Take-off  angle,  degrees. 

ABPSl  one-way  deviative,  non-deviative,  and  obscuration  losses,  db. 

VHIGH  virtual  height,  km. 

ATMON  atmospheric  noise,  dBkTb. 

GMT  Greenwhich  Mean  Time. 

MON  Month 

RANGE  ground  range  to  target,  kilometers 

AZIM  Azimuth  to  target,  degrees 

NHOPS  Number  of  ionospheric  hops 

**  CPDB  Clutter  power  in  dB 


**  returned  value 


Purpose:  Calculates  spread  Doppler 


Included  Commons:  Size  ( 

POK  ( 

CC  ( 

PIR  ( 

AVAIL  INP  ( 

ANT  “  ( 

TRACE  ( 


Entry  points:  ABILITY  V3 


Variables: 


R*4 

ABPSl 

R*4 

ABPS2 

R*4 

ANTGAIN 

R*4 

ATMON 

R*4 

AZIM 

R*4 

BANDW 

R*4 

BUGS 

R*4 

BWIDTH 

R*4 

CCLT 

R*4 

CIT 

R*4 

CLG 

R*4 

CLON 

CHAR 

CP  CHAR 

R*4 

CSDC 

R*4 

CZ 

R*4 

CZl 

R*4 

D2R 

R*4 

DB 

R*4 

DELR 

R*4 

DENOM 

R*4 

ERFN 

R*4 

ETA 

R*4 

FDNFG 

R*4 

FOCUSDB 

R*4 

FREQ 

R*4 

GDEC 

R*4 

GLN 

R*4 

GLON 

R*4 

CRT 

C*8 

GTOD 

1*4 

lER 

1*4 

ITRC 

R*4 

KFAC 

R*4 

KFACT 

R*4 

LINTRP 

R*4 

LNIO 

1*4 

ND 

R*4 

NFAC 

1*4 

NHOPS 

R*4 

NS 

1*4 

NY 

R*4 

ORTANG 

R*4 

Arrays 

PO 

i: 

R*4 

PCBAR 

R*4 

AGAIN 

(45) 

R*4 

ARC 

(3) 

clutter  by  Elkins  method 

byte  words) 

84) 

16) 

28) 

120) 

368) 

4) 


R*4 

ABSAl 

R*4 

ABSA2 

CHAR 

AT  CHAR 

R*4 

AZ2 

R*4 

BEAMW 

R*4 

BRT 

R*4 

C 

R*4 

CO 

R*4 

CITDB 

R*4 

CLAT 

R*4 

CLT 

R*4 

CPDB 

R*4 

CSDY2 

R*4 

CSLO 

R*4 

CZ2 

R*4 

C2T 

R*4 

DEL 

R*4 

DELAY 

R*4 

ECLUT 

R*16 

ERFl 

R*4 

ETABAR 

R*4 

FCLUT 

R*4 

FPI3DB 

R*4 

FPOX 

R*4 

GHRMT 

R*4 

GLAT 

R*4 

GLT 

R*4 

GMT 

R*4 

HIGH 

R*4 

HOP  RNGE 

1*4 

lYEAR 

1*4 

JDAY 

R*4 

LAT2 

R*4 

LAT2D 

R*4 

LSCAN 

1*4 

MON 

R*4 

NFG 

1*4 

NHOP 

1*4 

NSC 

R*4 

NSEDB 

R*4 

ORTAP 

R*4 

ORTMAG 

R*4 

PD 

R*4 

PG 

lOS 


ABILITY_V3  (cont.) 

R*4  GRLOS  (45) 

R*4  ROT  (3,  3) 

Subroutines  and  Functions  Referenced: 


R*4 

BRING 

C*8 

DTOG 

FPOK 

1*4 

JULIAN 

R*4 

R*4 

MTH$ASIN 

SOLR 

R*4 

MTH$ATAN 

XFR3 

R*4  MTHSCOS 

R*4 

MTH$SI 
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Module;  ABSAUR 

CALL;  SUBROUTINE  ABSAUR ( PHI, T, PHD, FREQ, ABSA) 

Call  Arguments: 

PHI  Corrected  geomagnetic  latitude  at  D-layer  penetration,  degrees. 

T  Corrected  geomagnetic  time  at  d-region  penetration. 

PHD  Incident  angle  of  ray  at  D-layer  height,  radians 

FREQ  Current  operating  frequency,  MHz 

**  ABSA  Auroral  absorption  loss,  dB 

**  returned  value 

Purpose:  calculate  auroral  absorption  for  availability  calculations  only 

Included  Commons: 
no  user  defined  commons 

Entry  points:  ABSAUR 

Variables: 


R*4 

ABSA 

R*4 

AT 

R*4 

ATT 

R*4 

DIF 

R*4 

FREQ 

1*4 

I 

1*4 

J 

R*4 

PHD 

R*4 

PHI 

R*4 

T 

Arrays : 

R*4  AB  (13) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$COS  R*4  MTH$EXP 
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Module:  ALLFRQ 

CALL:  SUBROUTINE  ALLFRQ 

Purpose:  Plots  range  vs  amplitude  showing  what  frequency  was  best  at  each 

range  interval 


Included  Commons: 

Size 

(4  byte  words) 

ALLAMP 

( 

10656) 

APLT 

( 

56) 

FOLO 

( 

9360) 

ESTAB 

( 

1332) 

FRQCHK 

( 

8) 

PLTAB 

( 

9328) 

xxxx 

( 

46900) 

Entry  points:  ALLFRQ 

Variables: 

R*4  BMONS 

R*4 

FNOISE 

R*4 

FREQ 

1*4 

I 

1*4  lANT 

1*4 

lAZMTH 

1*4 

IFIRST 

1*4 

IFR 

1*4  IFREQ 

1*4 

IPWUS 

1*4 

IREFF 

1*4 

ISSN 

1*4  IT 

1*4 

J 

1*4 

JFREQ 

1*4 

JJ 

1*4  KMAX 

1*4 

MAXFRQ 

R*4 

PREFRQ 

R*4 

PWR 

R*4  SNOISE 

R*4 

XI 

R*4 

yi 

Arrays: 

R*4 

AFREQ 

(35) 

R*4 

AMP 

(8,  45) 

R*4 

ANOISE 

(35) 

R*4 

CNR 

(8,  45) 

R*4 

CPDB 

(8,  45) 

R*4 

DELH 

(10,  45) 

R*4 

DELI 

(10,  45) 

1*4 

lOSNR 

(333,  35) 

1*4 

I  SMB 

(1332) 

1*4 

ISNR 

(1332) 

1*4 

LAYSMB 

(333,  4) 

1*4 

LAYSNR 

(333,  4) 

1*4 

LESNR 

(333) 

1*4 

LLAYER 

(333,  3) 

1*4 

LSLAY 

(333) 

1*4 

LSMB 

(36) 

1*4 

LSNR 

(333,  3) 

Module:  ALOSFV 


CALL:  SUBROUTINE  ALOSFV 

Purpose:  Calculates  the  deviative  loss  factors  from  the  virtual  height 

profile. 


Included  Commons:  Size  (4  byte  words) 


HGH 

( 

28800) 

INP 

( 

68) 

ION 

< 

368) 

RADR 

< 

24) 

Entry 

points:  ALOSFV 

Variables: 

R*4 

AZMTH 

R*4  BWIDTH 

R*4 

CF 

R*4 

DELINC 

R*4 

OLH 

R*4  FAC 

R*4 

FFAC 

R*4 

FV 

R*4 

GMT 

R*4  HZ 

1*4 

I 

1*4 

ICCP 

1*4 

IE 

1*4  lEXD 

1*4 

IFF 

1*4 

IND 

1*4 

1ST 

1*4  JOIN 

1*4 

K 

1*4 

K3 

1*4 

KND 

1*4  L 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4  MONS 

R*4 

PWID 

R*4 

PWP 

R*4 

SSN 

R*4  XI 

R*4 

Yl 

Arrays: 

R*4 

A 

(3) 

R*4 

AFAC 

(240,  10) 

R*4 

ALOOK 

(6) 

R*4 

FFAK 

(2) 

R*4 

FI 

(10,  3) 

R*4 

HI 

(10,  3) 

R*4 

HM 

(2) 

R*4 

HPRIM 

(240,  10) 

R*4 

HTRUE 

(240,  10) 

R*4 

YI 

(10,  3) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$ALOG  R*4  MTH$EXP 


Module:  AMPALL 


CALL:  SUBROUTINE  AMPALL  (FOBMAX, IRAN) 

Call  Arguments: 

FOBMAX  Maximum  frequency  to  examine,  MHz 
IRAN  Which  page  of  this  figure  is  current 

**  returned  value 

Purpose:  Plot  routine  that  sets  up  line  printer  character  plots  of  signal 

to-noise  ratio  for  all  frequencies  and  all  modes  of  propagation. 

Included  Commons:  Size  (4  byte  words) 


ALLAMP 

( 

APLT 

( 

INP 

( 

LUNITS 

( 

RADR 

( 

RAD2AVA 

( 

Entry 

points:  AMPALL 

Variables: 

R*4 

AZMTH 

R*4 

BANDW 

R*4 

ECLUT 

R*4 

FCLUT 

R*4 

GMT 

1*4 

1 

Arrays : 

R*4 

ALOOK 

(6) 

1*4 

ILAB 

(2) 

1*4 

IPRNT 

(111) 

1*4 

IRANGE 

(12) 

1*4 

ITIME 

(29) 

1*4 

J1 

(3) 

1*4 

J2 

(3) 

1*4 

J3 

(3) 

1*4 

LAYSMB 

(333, 

4) 

1*4 

LAYSNR 

(333, 

4) 

1*4 

LSMB 

(36) 

1*4 

MARGS 

(45) 

1*4 

NL 

(45) 

1*4 

NNLAT 

(2) 

1*4 

NNLON 

(2) 

10656) 

36) 

72) 

48) 

12) 

40) 


R*4 

BMONS 

R*4 

BWIDTH 

R*4 

FOBMAX 

R*4 

FREQ 

1*4 

lAZMTH 

1*4 

IBCL 
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Module:  AMPLOT 

CALL:  SUBROUTINE  AMPLOT  (INT,IRAN) 

Call  Arguments: 

INT  Vestigial,  no  longer  used. 

IRAN  Which  page  of  this  figure  is  current 

**  returned  value 


Purpose:  Same  as 

allfreg 

,  but  shows  best  mode 

at  each 

range  interval 

Included  Commons: 

Size 

(4  byte  words) 

APLT 

( 

56) 

DAT 

( 

192) 

ESTAB 

( 

3996) 

INP 

( 

72) 

LUNITS 

( 

48) 

PLT 

( 

3640) 

PLTAB 

( 

11992) 

RAOR 

( 

16) 

RAD2AVA 

( 

40) 

TIME 

( 

23) 

Entry 

points:  AMPLOT 

Variables: 

R*4 

AK 

R*4 

ANOISE 

R*4 

AZMTH 

R*4 

BANDW 

R*4 

BK 

R*4 

BMONS 

R*4 

BWIDTH 

R*4 

C180 

R*4 

C360 

R*4 

CK 

CHAR 

DATETIME 

R*4 

DELINC 

B*4 

DK 

R*4 

ECLUT 

R*4 

EEK 

R*4 

EK 

R*4 

FCLUT 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

1*4 

I 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

IBCL 

1*4 

IC 

1*4 

ICC 

1*4 

lOBW 

1*4 

IDN 

1*4 

IDUMM 

1*4 

IDX 

1*4 

IDY 

1*4 

lES 

1*4 

lEXD 

1*4 

IFR 

1*4 

IGND 

1*4 

II 

1*4 

IK 

1*4 

INOW 

1*4 

INT 

1*4 

I PHASE 

1*4 

IPWUS 

1*4 

IRAN 

1*4 

IRAT 

1*4 

IREFF 

1*4 

I SCALE 

1*4 

ISNR 

1*4 

ISSN 

1*4 

IT 

1*4 

ITOP 

1*4 

lUP 

1*4 

J 

1*4 

KFAC 

1*4 

KMAX 

1*4 

L 

1*4 

LANT 

1*4 

LAYMAX 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCAN 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

LX 

1*4 

M 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

NBLANK 

1*4 

NC 

1*4 

NLAT 

1*4 

NLON 

1*4 

NRSCANS 

1*4 

NS 

R*4 

PI2 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

REFF 

R*4 

RXNF 

R*4 

RZ 

R*4 

SCVLM 

R*4 

SNOISE 

R*4 

SSN 

R*4 

TXLAT 

R*4 

TXLON 

R*4 

WT 

R*4 

XI 

R*4 

X2 

R*4 

Y1 

R*4 

Y2 

Arrays 

i: 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

1*4 

IDIST 

(8, 

45) 

1*4 

IDLAY 

(8, 

45) 

1*4 

ILAB 

(2) 

1*4 

ILAYER 

(45, 

4) 

1*4 

IPRNT 

(111) 

111 


AMPLOT  ( cont . ) 


1*4 

I RANGE 

(12) 

1*4 

I  TIME 

(29) 

1*4 

J1 

(3) 

1*4 

J2 

(3) 

1*4 

J3 

(3) 

1*4 

JNUM 

(10) 

1*4 

LANG 

(333, 

3) 

1*4 

LESANG 

(333) 

1*4 

LESNR 

(333) 

1*4 

LLAYBR 

(333, 

3) 

1*4 

LSLAY 

(333) 

1*4 

LSNR 

(333, 

3) 

1*4 

MARCS 

(45) 

1*4 

NL 

(45) 

1*4 

NNLAT 

(2) 

1*4 

NNLON 

(2) 

1*4 

NT 

(45) 

R*4 

SUN 

(2,  12) 

Module:  ANTOO 

CALL:  SUBROUTINE  ANTOO  (IGAIN) 

Call  Arguments: 

**  IGAIN  2-way  antenna  gain,  dB 
**  returned  value 


Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons: 

ANT 

DAT 

INP 

Size 

( 

( 

( 

(4  byte  words) 

372) 

8) 

28) 

Entry  points:  ANTOO 

Variables: 

R*4  AZMTH 

R*4  GAZM 

R*4  SIGBAK 

R*4 

1*4 

BWIDTH 

I 

R*4 

1*4 

D2R 

IGAIN 

R*4 

R*4 

Arrays : 

R*4  AGAIN 

R*4  DUMMY 

R*4  GRLOS 

(45) 

(6) 

(45) 

GAIN 

R20 
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Module:  ANTOl 

CALL:  SUBROUTINE  ANTOl  (P,IFR) 


Call  Arguments: 

F  current  operating  frequency,  MHz 
IFR  antenna  type  (ANTTYP  on  input) 

**  returned  value 


Purpose:  Table  look-up  of 

gains  for 

Included  Commons: 

Size  (4 

ANT 

{ 

INP 

( 

RADR 

( 

Entry 

points:  ANTOl 

Variables: 

R*4 

AHPL 

R*4 

ANGLE 

C*8 

CPART 

R*4 

DED 

R*4 

El 

R*4 

EPS 

R*4 

GAIN 

R*4 

GAZM 

R*4 

HWIDTH 

1*4 

I 

Arrays : 

R*4 

A 

(4) 

R*4 

AGAIN 

(45) 

R*4 

ALOOK 

(6) 

R*4 

BEMWD 

(30) 

R*4 

D 

(4) 

R*4 

FFAK 

(2) 

R*4 

GRLOS 

(45) 

R*4 

PHI 

(4) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$ALOG  R*4  MTH$ATAN2 


the  selected  antenna 


byte  words) 
372) 

68) 

24) 


R»4 

AZMTH 

R*4 

BWIDTH 

R*4 

DELINC 

C*8 

EC 

R*4 

F 

R*4 

FREQ 

R*4 

GFIX 

R*4 

GMT 

1*4 

ICCP 

1*4 

lEXD 

R*4  MTHSCABS  R*4  MTHSCO 
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Module:  ANT02 


CALL:  SUBROUTINE  ANT02  (FREQ, IPHASE) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

IPHASE  antenna  type  (ANTTYP  on  input) 

**  returned  value 


Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons: 
ANT 
DAT 
INP 

Entry  points:  ANT02 


Size  (4  byte  words) 
(  372) 

(  8) 

(  28) 


Variables: 


R*4 

AZI 

R*4 

AZMTH 

R*4 

D2R 

R*4 

FLAM 

R*4 

GTGR 

1*4 

I 

R*4 

SIGBAK 

R*4 

SLEW 

R*4 

BORE 

P*4 

BWIDTH 

R*4 

FREQ 

R»4 

6AZM 

1*4 

IPHASE 

R*4 

R2D 

R*4 

SLEWDB 

Arrays : 


R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

GAIN 

(45) 

R*4 

GRLOS 

(45) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$ALOG 
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Module:  ANT03 


CALL:  SUBROUTINE  ANT03  (FREQ, IPHASE) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

IPHASE  antenna  type  (ANTTYP  on  input) 

**  returned  value 


Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons: 
ANT 
DAT 
INP 

Entry  points:  ANT03 


Size  (4  byte  words) 
(  372) 

(  8) 

(  28) 


Variables: 


R*4 

AOJDB 

R*4 

AZI 

R*4 

AZMTH 

R*4 

BORE 

R*4 

BWIOTH 

R*4 

D2R 

R*4 

FREQ 

R*4 

FREQQ 

R*4 

GAZM 

1*4 

1 

1*4 

I  FREQ 

1*4 

IPl 

1*4 

IPHASE 

1*4 

IREAD 

1*4 

J 

1*4 

JIN 

R*4 

R2D 

R*4 

SIGBAK 

R*4 

SLEW 

R*4 

SLEWDB 

R*4 

XFREQ 

Arrays : 

R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXDATA 

(16/ 

45) 

R*4 

TXDATA 

(16, 

45) 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  FOR$EXIT 


FOR$OPEN  R*4  MTH$AL 
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Module:  ANT04 


CALL:  SUBROUTINE  ANT04  (FREQ) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

**  returned  value 


Purpose:  Table  look-up  of  gains  for 


Included  Commons 

: 

Size 

ANT 

( 

DAT 

( 

INP 

( 

Entry 

points:  ANT04 

Variables: 

R*4 

ADJDB 

R*4 

AZI 

R*4 

BWIDTH 

R*4 

D2R 

R*4 

GAZM 

1*4 

I 

1*4 

I  READ 

1*4 

J 

R*4 

RXBW 

R*4 

RXGAIN 

R*4 

SLEWDB 

R*4 

TXBW 

Arrays : 

R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

gf:x)s 

(45) 

R*4 

RXDATA 

(45, 

22) 

R*4 

TXDATA 

(22, 

45) 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  FORSEXIT 


the  selected  antenna 

byte  words) 

372) 

8) 

28) 


R*4 

AZMTH 

R*4 

BORE 

R*4 

FREQ 

R*4 

FREQQ 

1*4 

I  FREQ 

1*4 

IPl 

1*4 

JIN 

R*4 

R2D 

R*4 

SIGBAK 

R*4 

SLEW 

R*4 

TXGAIN 

R*4 

XFREQ 

FOR$OPEN 

R*4  MTH$AL 
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Module:  ANT05 

CALL:  SUBROUTINE  ANT05  (F) 

Call  Arguments: 

F  current  operating  frequency,  MHz 
**  returned  value 


Purpose:  Table  look-up  of  gains  for 

Included  Commons:  Size  (4 


ANT 

( 

DAT 

( 

RADR 

( 

Entry 

points:  ANT05 

Variables: 

R*4 

AMP 

R*4 

AMPDB 

R*4 

D2R 

R*4 

DED 

R*4 

El 

R*4 

EPS 

R»4 

GAZM 

R*4 

GROT 

1*4 

I  FREQ 

R*4 

K 

R*4 

PWP 

C*8 

R 

R»4 

RANGLE 

R'*4 

RPART 

R*4 

SIGBAK 

R*4 

SIGMA 

C*8 

Y 

Arrays: 

R*4 

A 

(2) 

R*4 

AGAIN 

(45) 

R*4 

BEMWD 

(30) 

R*4 

D 

(2) 

R*4 

FFAF 

(2) 

R*4 

GRLOSS 

(45) 

R*4 

PHI 

(2) 

Subroutines  and  Functions  Referenced: 
R*4  MTHSALOG  R*4  MTH$ATAN2 


the  selected  antenna 

byte  words) 

372) 

8) 

24) 


R*4 

BWIDTH 

C*8 

CPART 

R*4 

DELINC 

C*8 

EC 

R*4 

F 

R*4 

FREQ 

R*4 

HWIDTH 

1*4 

I 

1*4 

L 

R*4 

PWTD 

R*4 

R2D 

R*4 

RAMPL 

R*4 

RX 

R*4 

RY 

C*8 

SUM 

R*4 

X 

R*4  MTH$CABS  R*4  MTH$CO 
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Module:  ANT06 

CALL:  SUBROUTINE  ANT06  (FREQ) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

**  returned  value 

Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons:  Size  (4  byte  words) 


ANT 

( 

372) 

DAT 

( 

8) 

INP 

( 

28) 

Entry 

points:  ANT06 

Variables: 

R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

D2R 

R*4 

R*4 

FREQ 

R*4 

FTEST 

R*4 

GAZM 

1*4 

1*4 

IDX 

1*4 

IDXl 

1*4 

I  FREQ 

1*4 

1*4 

IRE  AD 

1*4 

J 

1*4 

JIN 

R*4 

R*4 

SIGBAK 

R*4 

XFREQ 

Arrays; 

R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXDATA 

(45, 

30) 

R*4 

TXDATA 

(45, 

30) 

R*4 

WIDTH 

(14) 

Subroutines  and  Functions  Referenced: 
FORSCLOSE  FORSEXIT 


FORSOPEN 


FUEL 

I 

IPl 

R2D 
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Module;  ANT07 

CALL;  SUBROUTINE  ANT07  (FREQ) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

**  returned  value 


Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons 

Size 

(4  byte  words) 

ANT 

( 

372) 

DAT 

( 

8) 

INP 

( 

28) 

Entry 

points;  ANT07 

Variables: 

R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

D2R 

R*4 

R*4 

FREQ 

R*4 

FTEST 

R*4 

GAZM 

1*4 

1*4 

IDX 

1*4 

IDXl 

1*4 

I  FREQ 

1*4 

1*4 

IREAO 

1*4 

J 

1*4 

JIN 

R*4 

R*4 

SZGBAK 

R*4 

XFREQ 

Arrays : 

R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXDATA 

(45, 

30) 

R*4 

TXDATA 

(45, 

30) 

R*4 

WIDTH 

(13) 

Subroutines  and  Functions  Referenced: 

FOR$CLOSE  FOR$EXIT  FORSOPEN 


FUEL 

I 

IPl 

R20 
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Module;  ANT08 

CALL:  SUBROUTINE  ANT08  (FREQ) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

**  returned  value 

Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons:  Size  (4  byte  words) 


ANT 

( 

372) 

DAT 

( 

8) 

INP 

( 

28) 

Entry 

points:  ANT08 

Variables: 

R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

D2R 

R*4 

R*4 

FREQQ 

R*4 

GAZM 

1*4 

I 

1*4 

1*4 

IPl 

1*4 

I  READ 

1*4 

J 

1*4 

R*4 

R2D 

R*4 

SIGBAK 

R*4 

XFREQ 

Arrays: 

R*4 

AGAIN 

(45) 

R*4 

ANTDAT 

(2570) 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXDATA 

(16, 

45) 

R*4 

TXIDAT 

(25, 

45) 

R*4 

TX2DAT 

(25, 

45) 

Subroutines  and  Functions  Referenced: 

FOR$CLOSE  FOR$EXIT  FOR$OPEN 


FREQ 
I  FREQ 
JIN 


R*4  MTH$EX 
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Module:  ANT09 


CALL:  SUBROUTINE  ANT09  (FMHZ, VSTEER) 

Call  Arguments: 

FMHZ  current  operating  frequency,  MHz 

VSTEER  vertical  steer  angle  of  the  array,  degrees 


**  returned  value 

Purpose:  Table  look-up  of  gains  for 

Included  Commons:  Size  (4 


ANT 

( 

DAT 

( 

INP 

( 

Entry 

points: 

ANT09 

Variables: 

R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

ELINC 

R*4 

ELSTBP 

R*4 

FREQQ 

R*4 

GAZM 

1*4 

IFST 

1*4 

IPl 

1*4 

J1 

1*4 

J2 

1*4 

J5 

1*4 

JIN 

R*4 

PSI 

R*4 

R2D 

R*4 

SPACE 

R*4 

VSTEER 

Arrays : 

R*4 

AGAIN 

(45) 

R*4 

C 

(15) 

R*4 

CM 

(15) 

R*4 

DUM 

(15) 

R*4 

DUMMY 

(6) 

R*4 

FDB 

(45) 

R*4 

FE 

(15) 

R*4 

FS 

(45) 

R*4 

FT 

(45) 

R*4 

GRLOS 

(45) 

R*4 

H 

(15) 

R*4 

RXDATA 

(16, 

45) 

R*4 

W 

(15) 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  FOR$EXIT 

TAYLOR 


the  selected  antenna 

byte  words) 

372) 

8) 

28) 


R*4 

D2R 

R*4 

ELDEG 

R*4 

FMHZ 

R*4 

FREQ 

1*4 

1 

1*4 

I  FREQ 

1*4 

IRE  AD 

1*4 

J 

1*4 

J3 

1*4 

J4 

1*4 

NUM 

R*4 

PI 

R*4 

R*4 

SIGBAK 

XFREQ 

R*4 

SINPSI 

FOR$OPEN  R*4  MTH$AL 
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Module:  ANT  10 

CALL;  SUBROUTINE  ANTIO  (FREQ) 

Call  Arguments; 

FREQ  current  operating  frequency,  MHz 

**  returned  value 

Purpose;  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons;  Size  (4  byte  words) 


ANT 

( 

372) 

DAT 

( 

8) 

INP 

( 

28) 

Entry 

points;  ANTIO 

Variables: 

FDEL 

R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

D2R 

B*4 

R*4 

FREQ 

R*4 

FTEST 

R*4 

GAZM 

1*4 

I 

1*4 

IDX 

1*4 

IDXl 

1*4 

I  FREQ 

1*4 

IPl 

1*4 

I  READ 

1*4 

J 

1*4 

JIN 

B*4 

R2D 

R*4 

SIGBAK 

R*4 

XFREQ 

Arrays ; 

(45) 

R*4 

AGAIN 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXDATA 

(30, 

45) 

R*4 

TXDATA 

(30, 

45) 

R*4 

WIDTH 

(15) 

Subroutines  and  Functions  Referenced; 

FOR$CLOSE  FOR$EXIT  FORSOPEN 
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Module:  ANTll 

CALL;  SUBROUTINE  ANTll  (FREQ) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

**  returned  value 


Purpose:  Table  look-up  of  gains  for 

Included  Commons:  Size  (4 


ANT 

{ 

DAT 

( 

INP 

( 

Entry 

points:  ANTll 

Variables: 

R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

FREQ 

R*4 

GAZM 

1*4 

ILO 

1*4 

I  READ 

R*4 

R2D 

R*4 

SIGBAK 

Arrays: 

R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXDATA 

(45, 

30) 

R*4 

TXDATA 

(45, 

30) 

R*4 

WIDTH 

(30) 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  FOR$EXIT 


the  selected  antenna 

byte  words) 

372) 

8) 

28) 


R*4 

D2R 

R*4 

FDEL 

1*4 

I  FREQ 

1*4 

IHI 

1*4 

J 

1*4 

JIN 

FOR$OPEN 
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Module:  ANT12 


CALL:  SUBROUTINE  ANT12  (FREQ) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

**  returned  value 

Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons:  Size  (4  byte  words) 


ANT 

( 

372) 

DAT 

{ 

8) 

INP 

( 

28) 

Entry 

points;  ANT12 

Variables: 

R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

D2R 

R*4 

R*4 

FREQ 

R*4 

GAZM 

1*4 

I  FREQ 

1*4 

1*4 

ILO 

1*4 

I  READ 

1*4 

J 

1*4 

R*4 

R20 

R*4 

SIGBAK 

Arrays: 

R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXDATA 

(45, 

30) 

R*4 

TXDATA 

(45, 

30) 

R*4 

WIDTH 

(30) 

Subroutines  and  Functions  Referenced: 

FOR$CLOSE  FOR$EXIT  FOR$OPBN 


FUEL 

IHI 

JIN 
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Module:  ANT13 


CALL:  SUBROUTINE  ANT13  (FREQ) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

**  returned  value 


Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons: 
ANT 
DAT 
INP 

Entry  points:  ANT13 


Size  (4  byte  words) 
(  372) 

(  8) 

(  28) 


Variables: 


R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

D2R 

R*4 

FDEL 

R*4 

FREQ 

R*4 

GAZM 

1*4 

I  FREQ 

1*4 

IHI 

1*4 

ILO 

1*4 

I  READ 

1*4 

J 

1*4 

JIN 

R*4 

R2D 

R*4 

SIGBAK 

R*4 

WIDTH 

Arrays: 


R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXDATA 

(45, 

30) 

R*4 

TXDATA 

(45, 

30) 

Subroutines  and  Functions  Referenced: 

FOR$CLOSE  FOR$EXIT  FOR$OPEN 
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Module:  ANT14 

CALL:  SUBROUTINE  ANT14  (FREQ) 

Call  Arguments: 

FREQ  current  operating  frequency,  MHz 

**  returned  value 

Purpose:  Table  look-up  of  gains  for  the  selected  antenna 


Included  Commons:  Size  (4  byte  words) 


ANT 

( 

372) 

DAT 

( 

8) 

INP 

( 

28) 

Entry 

points: 

ANT  14 

Variables: 

R*4 

AZMTH 

R*4 

BWIDTH 

R*4 

D2R 

R»4 

R*4 

FREQ 

R*4 

GAZM 

1*4 

I  FREQ 

1*4 

1*4 

ILO 

1*4 

I  READ 

1*4 

J 

1*4 

R*4 

R2D 

R*4 

SIGBAK 

Arrays : 

R*4 

AGAIN 

(45) 

R*4 

DUMMY 

(6) 

R*4 

GRLOS 

(45) 

R*4 

RXBW 

(35) 

R*4 

RXDATA 

(45, 

35) 

R*4 

TXBW 

(35) 

R*4 

TXDATA 

(45, 

35) 

Subroutines  and  Functions  Referenced: 

FOR$CLOSE  FOR$EXIT  FOR$OPEN 


« 


FUEL 

IHI 

JIN 
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Module:  ANTGAIN 

CALL:  REAL  FUNCTION  ANTGAIN(toa, freq, MATRIX) 

Call  Arguments: 

TOA  Take-off  angle,  degrees 

FREQ  current  operating  frequency,  MHz 

MATRIX  target  cross  section,  dB 

**  returned  value 

Purpose:  performs  a  two-dimensional  interpolation  for  antenna  gain  and  target 

cross  section  matrices. 


Included  Commons: 
no  user  defined  commons 

Entry  points:  ANTGAIN 


Variables: 


R*4 

DELTAE 

R*4 

DELTAF 

R*4 

ELEVO 

R*4 

ELEVl 

R*4 

ELEVHI 

R»4 

ELEVINC 

R*4 

FREQ 

R*4 

FREQO 

R*4 

FREQl 

R*4 

FREQHI 

R*4 

FREQl NC 

R*4 

G1 

R*4 

G2 

R*4 

G3 

R*4 

G4 

R*4 

GAINEl 

R*4 

GAINE2 

1*4 

INDXE 

1*4 

INDXF 

1*4 

NELEV 

1*4 

NFREQ 

R*4 

TOA 

Arrays : 

e  R*4  MATRIX  (20,  20) 
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Module:  AURAB 


CALL:  REAL  FUNCTION  AURAB (FREQ, RANG, AZ,VH,UT,RLAT,RLONG,CSL0) 

Call  Arguments: 

FREQ  Current  operating  frequency,  MHz 

RANG  range  to  target  in  km 

AZ  azimuth  to  target,  degrees 

VH  virtual  height  of  path.  Km 

UT  Universal  time 

RLAT  lat  coordinate  of  radar,  degrees. 

RLONG  longitude  coordinate  of  radar,  degrees. 

CSLO  geomagnetic  longitude  (correction  to  geomagnetic  time), 

degrees . 

**  returned  value 

Purpose:  gets  parameters  for  auroral  absorption  calculation,  then  calls 

absaur  for  loss  (  for  availability  only) . 

Included  Commons: 
no  user  defined  commons 

Entry  points:  AURAB 

Variables: 


R*4 

ABSAl 

R*4 

ABSA2 

R*4 

ARGUMENT 

R*4 

AZ 

R*4 

AZLIM 

R*4 

BETA 

R*4 

CB 

R*4 

CLONl 

R*4 

CLON2 

R*4 

COLAT 

R*4 

CSLO 

R*4 

D2R 

R*4 

DLAT 

R*4 

DPHI 

R*4 

FREQ 

R*4 

GAM 

R*4 

HD 

R*4 

PHD 

R*4 

PHF 

R*4 

PHI 

R*4 

PHIl 

R*4 

PHI2 

R*4 

PI 

R*4 

RANG 

R*4 

RATD 

R*4 

RATF 

R*4 

RDl 

R*4 

RD2 

R*4 

RE 

R*4 

RFACl 

R*4 

RFAC2 

R*4 

RLAT 

R*4 

RLONG 

R*4 

SB 

R*4 

T1 

R*4 

T2 

R*4 

TEMPI 

R*4 

TEMP2 

R*4 

UT 

R*4 

VH 

Subroutines  and 

Functions 

Referenced: 

ABSAUR 

CGMCS 

R*4 

MTHSACOS 

R*4  MTHSAS 

R*4 

MTH$SIN 

R* 

4  MTH$TAN 
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Module:  BAKSCT 


CALL:  SUBROUTINE  BAKSCT 

Purpose:  Backscatter  control  routine  that  calculates  the  vertical  ionograms, 

reflectrix,  oblique  paths  for  all  frequencies;  calculates  and 
organizes  some  output.  A  call  to  INPUT  obtains  previously  generated 
ionospheric  parameters  needed  to  calculate  the  electron  density 
profile.  INPUT  calls  INLEC,  which  reads  electron  density  profiles  or 


virtual 

heights 

( ionograms ) 

.  This 

is  a  seldom 

used  option. 

Included  Commons: 

Size  (4 

byte  words) 

APLT 

( 

60) 

DAT 

( 

192) 

FRQCHK 

( 

8) 

INP 

( 

68) 

ION 

( 

436) 

Entry 

points:  BAKSCT 

Variables: 

R*4 

AK 

R*4 

AZMTH 

R*4 

BK 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

FBEG 

R*4 

FEND 

R*4 

FNOISE 

Arrays: 

R*4 

ALOOK 

(6) 

1*4 

AMON 

(12) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

PEC 

(10) 

R*4 

FREL 

(15) 

R*4 

HE 

(10) 

R*4 

HFl 

(10) 

R*4 

HF2 

(10) 

R*4 

SUN 

(2, 

12) 

R*4 

YME 

(10) 

R*4 

YMFl 

(10) 

R*4 

YMF2 

(10) 

Subroutines  and  Functions 

Referenced: 

ALOSFV 

AMPALL 

CUSPFV 

FOBBY 

INPUT 

LECDEN 

OPLOT 

RADAR 
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Module:  bring 

CALL:  real  function  bring(cclat, cclon, sslat, sslon) 


Call  Arguments: 

eclat  latitude  coordinate  of  first  point,  radians, 

cclon  longitude  coordinate  of  first  point,  radians - 

sslat  latitude  coordinate  of  second  point,  radians, 

sslon  longitude  coordinate  of  second  point,  radians. 

**  returned  value 

Purpose:  Calculates  bearing  from  first  point  to  second  point.  Used  for 

transmitter  to  spread  Doppler  clutter  region 

Included  Commons: 
no  user  defined  commons 


Entry  points;  BRING 


Variables: 

R*4  BRT 

R*4  EPSLON 

R*4  QCOS 

R*4  CCLAT 

R*4  GCD 

R*4  SSLAT 

R*4 

R*4 

R*4 

CCLON 

PI 

SSLON 

R*4 

R*4 

DLONG 

PI2 

Subroutines  and 
R*4  MTH$ACOS 

Functions  Referenced; 
R*4  MTH$COS 

R*4 

MTH$SIGN 

R*4  MTH$SI 
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Module:  CASE 


CALL:  SUBROUTINE  CASE  (C,ISW) 

Call  Arguments: 

C  character  string  to  convert 

ISW  integer  flag  to  set  upper (+) /lower (-)  case. 

**  returned  value 

Purpose:  converts  a  character  string  to  upper/ lower  case 

Included  Commons: 
no  user  defined  commons 


Entry  points:  CASE 


Variables: 

CHAR  C 

1*4 

I 

1*4 

ICVALUE 

1*4 

1*4  NHIl 

1*4 

NHI2 

1*4 

NLOl 

1*4 

ISW 

NL02 
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Module:  CGMCS 

CyU,L:  SUBROUTINE  CGMCS (XG,YG,FO, GO) 

Call  Argument:s: 

XG  geographic  latitude  coordinate  of  point,  degrees. 

YG  geographic  longitude  coordinate  of  point,  degrees. 

FO  corrected  geomagnetc  latitude  coordinate  of  point,  degrees. 

GO  correceted  geomagnetic  longitude  coordinate  of  point,  degrees. 

**  return  value 

Purpose:  Calculates  corrected  geomagnetic  coordinates 

Included  Commons:  Size  (4  byte  words) 

J75  (  300) 

Entry  points:  CGMCS 


Variables: 

R*4  DX 

R*4 

DY 

R*4 

DZ 

R*4 

FF 

R*4 

FO 

R*4 

FX 

R*4 

FY 

R*4 

FZ 

R*4 

GG 

R*4 

GO 

R*4 

GX 

R*4 

GY 

R*4 

GZ 

1*4 

I 

1*4 

J 

1*4 

J1 

1*4 

JLP 

R*4 

XG 

R*4 

XX 

R*4 

YG 

R*4 

YY 

Arrays: 

1*4  INDEX  (74) 

R*4  TABLEl  (2,  91,  72) 

R*4  TABLE2  (2,  91) 

R*4  TABLEX  (2,  91) 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  FOR$OPEN 
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Module:  CHANY 

CALL:  SUBROUTINE  CHANY  (FREQ, JUG, RLMT,RLAT,RLONG, MAN, F2C,RNOISE) 


Call  Arguments: 

FREQ  Current  operating  frequency,  MHz. 

JUG  vestigial,  not  used 

RLMT  local  mean  time  at  radar 

RLAT  geographic  latitude  coordinate,  degrees. 

RLONG  geographic  longitude  coordinate,  degrees. 

MAN  man-made  noise  (as  input  'NOISE') 

F2C  F-layer  critical  frequency,  MHz 

**  RNOISE  noise  reference 

**  return  value 

Purpose:  Calculates  man-nade  and  galactic  noise  level  at  receiver 

Included  Commons: 
no  user  defined  commons 

Entry  points:  CHANY 


Variables: 


R*4 

ANOISE 

R*4 

ATNO 

R’*4 

ATNY 

R*4 

ATNZ 

R*4 

GNOISE 

1*4 

JK 

1*4 

MA 

1*4 

MAN 

R*4 

RLMT 

R*4 

RLONG 

R*4 

RRLONG 

R*4 

SNOISE 

Arrays : 

R*4  XNINT  (4) 


R*4 

ATNU 

R*4 

ATNX 

R*4 

F2C 

R*4 

FREQ 

1*4 

JUG 

1*4 

KJ 

R*4 

RKTB 

R*4 

RLAT 

R*4 

RNOISE 

R*4 

ROTHR 

R*4 

TM 

R*4 

XNOISE 

Subroutines  and  Functions  Referenced 
GENFAM  R*4  HTH$ALOG 


R*4  MTHSALOGIO 


NOISY 


Module:  CLOCKS 

CALL:  FUNCTION  CLOCKS  (Ny,NM,ND,NH,MN,NS,SLAT,SLON) 


Call  Arguments: 

NY  Set  year 

NH  Set  month 

ND  Set  day  of  the  month  (default  is  15  in  RADARC) 

NH  Set  Hour 

MN  Set  minute 

NS  Set  second 

SLAT  geographic  latitude  of  point  of  interest,  degrees. 
SLON  geographic  longitude  of  point  of  interest,  degrees. 

**  return  value 


Purpose:  Determines  various  time  parameters.  Call  arguments  'set'  the  clock, 

while  entry  point  selection  determines  calculated  parcuneter.  Entry 
point  CGMTIM  used  to  get  corrected  geomagnetic  time. 


Included  Commons: 

Size 

(4  byte  words) 

BRILIG 

{ 

52) 

WABE 

( 

96) 

Entry  points: 

R*4  CGMTIM 

R*4  TWOTIM 

R*4  CLOCKS 

R*4  DIPTIM 

R*4  SUNTIM 

Variables: 

1*4  MN 

1*4 

MODE 

1*4  NM 

1*4 

NS 

R*4  SLON 

Arrays: 

R*4  CD 

(24) 

1*4  NTIME 

(9) 

R*4  TIME 

(4) 

Subroutines  and  Functions  Referenced: 
GIMBAL  GYRE 


1*4  ND 
1*4  NY 


JULIAN 


1*4  NH 

R*4  SLAT 
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Module:  CORDY 

CALL:  SUBROUTINE  CORDY  (GCD,BR,X2,y2,X,y) 

Call  Arguments: 

GCD  Great  circle  distance,  radians 

BR  Azimuth  of  interest  ,  radians 

X2  geographic  latitude  coordinate  of  the  first  point,  radians 
y2  geographic  west  longitude  of  the  first  point,  radians 
**  X  geographic  latitude  coordinate  of  the  second  point,  radians 
**  y  geographic  west  longitude  of  the  second  point,  radians 

**  return  value 

Purpose:  Calculates  latitude  and  longitude  of  the  landing  point  of  an  arc 

given  the  origination,  length,  and  direction. 

Included  Commons:  Size  (4  byte  words) 


DAT 

( 

192) 

Entry  points:  CORDY 

Variables: 

R*4 

AK 

R*4 

BK 

R*4 

BR 

R*4  C180 

R*4 

C360 

R*4 

CK 

R*4 

DF 

R«4  DK 

R*4 

EEK 

R*4 

EK 

R*4 

GCD 

R*4  GLG 

R*4 

GLT 

R*4 

RZ 

R*4 

S 

R*4  X 

R*4 

XI 

R*4 

X2 

R*4 

y 

R*4  yi 

R*4 

y2 

Arrays 

1  « 

1 « 

R*4 

AMON 

(12) 

R*4 

SUN 

(2, 

12) 

Subroutines  and 

Functions 

Referenced: 

R*4 

MTH$ACOS 

R*4 

MTH$COS 

R*4 

MTH$SIGN 

R*4  MTHSSI 
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I 


Module:  COSD 

CALL:  SUBROUTINE  COSD  (PT1,TT1,PT2,TT2,GA,CA) 

Call  Arguments: 

PTl  Latitude  of  point  a  on  sphere  in  degrees. 

TTl  Longitude  of  point  a  on  sphere  in  degrees. 

PT2  Latitude  of  point  b  on  sphere  in  degrees. 

TT2  Longitude  of  point  b  on  sphere  in  degrees. 

**  GA  Great  circle  distance  between  points  a  and  b,  radians 

**  CA  The  cosine  of  GA 

**  return  value 


Purpose:  calculates  distance  between  two  points  on  a  sphere 


Included  Commons: 
DAT 

Entry  points:  COSD 


Size  (4  byte  words) 
(  192) 


Variables: 


R*4 

Cl 

R*4 

C2 

R*4 

DEG 

R*4 

DT 

R*4 

GMLAT 

R*4 

GMLON 

R*4 

PI 

R*4 

PID2 

R*4 

PT2 

R*4 

RAD 

R*4 

TTl 

R*4 

TT2 

Arrays: 

R*4 

AMON 

(12) 

R*4 

DUM 

(4) 

R*4 

DUMM 

(24) 

Subroutines  and 

Functions 

Referenced 

R*4 

MTH$ACOS 

R*4 

MTH$COS 

R*4 

CA 

R*4 

CT 

R*4 

EARTHR 

R*4 

GA 

R*4 

PI 

R*4 

P2 

R*4 

PIT2 

R*4 

PTl 

R*4 

SI 

R*4 

S2 

R*4  MTH$SIN 
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Module:  CPTERP 


CALL:  SUBROUTINE  CPTERP 

Purpose:  Sets  indicies  for  plot  cusp  inserts 


Included  Conunons:  Size  (4  byte  words) 


CPTRP 

( 

28) 

CUSP 

( 

1120) 

INP 

( 

72) 

MIMSY 

( 

2520) 

PLT 

( 

5080) 

PLTAB 

( 

11992) 

Entry 

points: 

CPTERP 

Variables: 

R*4 

AZMTH 

R*4 

GMT 

1*4 

IC 

1*4 

ICDF 

1*4 

ICFR 

1*4 

ICNR 

1*4 

ICP 

1*4 

ICTMP 

1*4 

lEXD 

1*4 

IGNO 

1*4 

INR 

1*4 

IREFF 

1*4 

ISNR 

1*4 

ITMP 

1*4 

JFR 

1*4 

JNR 

1*4 

L 

1*4 

LK 

1*4 

M 

1*4 

MAN 

1*4 

MCP 

1*4 

MCR 

1*4 

METH 

1*4 

METHOD 

1*4 

HONS 

1*4 

MSNR 

R*4 

SSN 

R*4 

XI 

R*4 

Yl 

Arrays 

i: 

R*4 

ALOOK 

(6) 

R*4 

AMPCP 

(4, 

10) 

R*4 

DELCP 

(4, 

10) 

R*4 

PVCP 

(4, 

10) 

1*4 

lAMP 

(8, 

45) 

1*4 

lAMPCP 

(4, 

10) 

1*4 

IDIST 

(8, 

45) 

1*4 

IDLAY 

(8. 

45) 

1*4 

IDLYCP 

(4, 

10) 

1*4 

IDSTCP 

(4, 

10) 

1*4 

ILAYIO 

(45, 

10) 

1*4 

ILAYER 

(180) 

1*4 

ILY 

(4, 

10) 

1*4 

JNUH 

(10) 

1*4 

JS 

(4, 

45) 

1*4 

LANG 

(333 

1,  3) 
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Module:  CUSPFV 


CALL:  SUBROUTINE  CUSPFV 


Purpose:  Computes  values  of  the  frequency/height  parameters  about  the  cusp 

and  puts  in  reasonably  smooth  values  that  resemble  those  scaled  from 
actual  ionograms. 


Included  Commons: 
CUSP 

ION 

Entry  points:  CUSPFV 

Size 

{ 

( 

(4  byte  words) 
1280) 

436) 

Variables: 

R*4  FV 

1*4 

I 

1*4  IFX 

1*4  JOIN 

1*4 

JL 

1*4  K3 

1*4  JCP 
1*4  KCP 


Arrays: 


R*4 

AMPCP 

(4, 

10) 

R*4 

DELCP 

(4, 

10) 

R*4 

FI 

(10, 

3) 

R*4 

FREL 

(15) 

R*4 

FVCP 

(4, 

10) 

R*4 

HI 

(10, 

3) 

1*4 

lAHPCP 

(4, 

10) 

1*4 

IDLYCP 

(4, 

10) 

1*4 

IDSTCP 

(4, 

10) 

1*4 

IFV 

(4, 

10) 

1*4 

ILY 

(4, 

10) 

R*4 

YI 

(10, 

3) 
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Module:  CUSPIN 

CALL:  SUBROUTINE  CUSPIN 


Purpose:  Calculates 

angles  for  the  modified 

cusp  values. 

Included  ConunoiiB: 

Size 

(4  byte  words) 

APLT 

( 

4) 

CPTEST 

( 

120) 

CUSP 

( 

1280) 

DAT 

( 

192) 

HGH 

( 

28800) 

ION 

{ 

436) 

Entry 

points:  CUSPIN 

Variables: 

R*4 

AK 

R*4  BK 

R*4 

C180 

R*4 

R*4 

COEL 

R*4  CK 

R»4 

DK 

R*4 

R*4 

EK 

R*4  FREQ 

R*4 

FVTEST 

R*4 

R*4 

GLT 

1*4  I 

1*4 

IFX 

1*4 

1*4 

JOIN 

1*4  JL 

1*4 

JSTART 

1*4 

1*4 

K3 

1*4  KCP 

1*4 

N1 

1*4 

1*4 

NBLANK 

1*4  NE 

R*4 

PI2 

R*4 

Arrays : 

R*4 

AFAC 

(240,  10) 

R*4 

AMON 

(12) 

R*4 

AMPCP 

(4,  10) 

R*4 

DELCP 

(4,  10) 

R*4 

FI 

(10,  3) 

R*4 

FREL 

(15) 

R*4 

FVCP 

(4,  10) 

R*4 

HI 

(10,  3) 

R*4 

HPRIN 

(240,  10) 

R*4 

HTRUE 

(240,  10) 

1*4 

lANPCP 

(4,  10) 

1*4 

IDLYCP 

(4,  10) 

1*4 

IDSTCP 

(4,  10) 

1*4 

IFV 

(4,  10) 

1*4 

ILY 

(4,  10) 

1*4 

JNUMM 

(3,  10) 

R*4 

SUN 

(2,  12) 

Subroutines  and  Functions  Referenced: 
R*4  MTHSACOS  R»4  MTH$SQRT 


C360 

EEK 

GLG 

J 

JSTOP 

N2 

RZ 
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Module:  CUSPSG 

CALL:  SUBROUTINE  CUSPSG 

Purpose:  Calculates  ray  sets  in  the  cusp  region  between  regular  layers 


Included  Commons:  Size  (4  byte  words) 


ANT 

( 

368) 

APLT 

( 

56) 

CINI 

( 

640) 

CPTRP 

{ 

28) 

CPTEST 

( 

3000) 

CUSP 

( 

1600) 

DAT 

( 

192) 

POLO 

( 

5040) 

GEOG 

( 

280) 

GROUND 

( 

720) 

HGH 

( 

28800) 

ILOS 

( 

2880) 

INP 

( 

92) 

ION 

( 

368) 

LUNITS 

( 

48) 

MIMSY 

( 

2520) 

PLT 

( 

3640) 

RADR 

( 

24) 

TTSIZE 

( 

l?t0) 

Entry  points:  CUSPSG 

Variables: 

R*4 

ABSB 

R*4 

ADEL 

R*4 

ADEV 

R*4 

ADJ 

R*4 

AK 

R*4 

AMPANT 

R*4 

ANGDEL 

R*4 

ANOISE 

R*4 

ARAD 

R*4 

AREA 

R*4 

AZMTH 

R*4 

BK 

R*4 

BWIDTH 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

DEL 

R*4 

DELAY 

R*4 

DELINC 

R*4 

DELPI 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

FCSQ 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

FSQ 

R*4 

FV 

R*4 

GAIN 

R*4 

GDR 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

R*4 

GRDLOS 

R*4 

HANG 

R*4 

HP 

R*4 

HT 

R*4 

HWIDTH 

1*4 

I 

1*4 

lADEL 

1*4 

lANG 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

ICFR 

1*4 

ICNR 

1*4 

ICP 

1*4 

IDEL 

1*4 

IE 

1*4 

lEXD 

1*4 

IFR 

1*4 

IGND 

1*4 

IMONS 

1*4 

IPWUS 

1*4 

ISNR 

1*4 

ISSN 

1*4 

IT 

1*4 

JCUSP 

1*4 

JDIN 

1*4 

JFR 

1*4 

JHOP 

1*4 

JJ 

1*4 

JNR 

1*4 

K3 

1*4 

KHOP 

Arrays : 

R*4 

ABIY 

(10) 

R*4 

ADV 

(4, 

45) 

R*4 

AFAC 

(240 

,  10) 

R*4 

AGAIN 

(45) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

AMP 

(8, 

45) 

R*4 

AMPCP 

(4, 

10) 

R*4 

ANDV 

(4, 

45) 

R*4 

AOF 

(4, 

45) 

R*4 

ARF 

(4, 

45) 

R*4 

BC 

(10) 

R*4 

CLAT 

(10) 

141 


{ cont . ) 


CUSPSG 


R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

CNRCP 

(4,  10) 

R*4 

DELCP 

(4,  10) 

R*4 

DELH 

(10,  45) 

R*4 

DELI 

(10,  45) 

R*4 

FFAK 

(2) 

R*4 

FI 

(10,  3) 

R*4 

FVCP 

(4,  10) 

R*4 

GDI  ST 

(4,  10) 

R*4 

GLAT 

(10) 

R*4 

GNDIST 

(4,  45) 

R*4 

GNDLOS 

(4,  45) 

R*4 

GRLOS 

(45) 

R*4 

GY 

(10) 

R*4 

HI 

(10,  3) 

R*4 

HPP 

(4,  45) 

R*4 

HPRIM 

(240,  10) 

R*4 

HTRUE 

(240,  10) 

1*4 

lAMPCP 

(4,  10) 

1*4 

IDIST 

(8,  45) 

1*4 

IDLAY 

(8,  45) 

1*4 

IDLYCP 

(4,  10) 

1*4 

IDSTCP 

(4,  10) 

Subroutines  and  Functions  Referenced: 

R*4  MTH$ALOG10  R*4  MTH$ASIN  R*4  MTHSCOS  R*4 


MTH$SQ 
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Module:  DATIME 

CALL:  SUBROUTINE  DATIME (DATETIME) 

Call  Arguments: 

**  DATETIME  text  string  containing  the  date/time 
**  return  value 

Purpose:  this  routine  gets  a  date/time  string  from  the  operating  system  to 

stamp  the  output. 

Included  Commons: 
no  user  defined  commons 

Entry  points:  DATIME 

Variables: 

CHAR  DATETIME  1*4  STATUS 

Subroutines  and  Functions  Referenced: 

1*4  LIB$DATE  TIME  LIBSSIGNAL 
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Module:  DIPOLE 

CALL:  SUBROUTINE  DIPOLE  (TG, PG, TM, PM) 

Call  Arguments: 

TG  Geographic  latitude  in  degrees. 

PG  Geographic  longitude  in  degrees. 

**  TM  Centered  dipole  latitude  in  degrees. 

**  PM  Centered  dipole  longitude  in  degrees. 

**  return  value 

Purpose:  Converts  from  geographic  coordinates  to  earth  centered  dipole  system 

Included  Commons:  Size  (4  byte  words) 

DAT  (  192) 

Entry  points:  DIPOLE 

Variables: 


R*4 

A 

R*4  DEG 

R*4 

EARTHR 

R*4 

GMLAT 

R*4 

GMLON 

R*4  PG 

R*4 

PI 

R*4 

PID2 

R*4 

PIT2 

R*4  PM 

R*4 

RAD 

R»4 

TG 

R*4 

TM 

Arrays : 

R*4 

AMON 

(12) 

R*4 

DUM 

(4) 

R*4 

DUMM 

(24) 

R*4 

R 

(3,  3) 

R*4 

XD 

(3) 

R*4 

XG 

(3) 

Subroutines  and 

Functions  Referenced: 

R*4 

MTH$ASIN 

R*4  MTH$ATAN2 

R*4 

MTH$COS 

R*4  MTHSSI 
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Module:  DTOG 

CALL;  COMPLEX  FUNCTION  DTOG(X,R) 

Call  Arguments: 

X  distance,  radians 

R  rotation  matrix  from  xfrg 

**  return  value 


Purpose:  Computes  complex  function  of  three  variables 


Included  Commons: 
CONTIG 
SCR 


Size  (4  byte  words) 

(  16) 

<  4) 


Entry 

points:  *8 

DTOG 

0-00000019  R*4  GTOD 

Variables: 

R*4 

BA 

R*4 

CPB 

R*4 

CPD 

R*4  CPG 

R*4 

CSC 

R*4 

CTD 

R*4 

CTG 

1*4  I 

1*4 

K 

1*4 

MODE 

R*4 

PD 

R*4  PG 

R*4 

PI 

R*4 

SPB 

R*4 

SPD 

R*4  SPG 

R*4 

STD 

R*4 

STG 

R*4 

TD 

R*4  TG 

C*8 

X 

C*8 

Y 

C*8 

Z 

Arrays: 

e  R*4 

R 

(3, 

3) 

R*4 

XD 

(3) 

R*4 

XG 

(3) 

Subroutines  and 

Functions 

Referenced: 

R*4 

MTH$ACOS 

R*4 

MTH$ATAN2 

R*4 

MTH$COS 

R*4  MTHSSl 
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Module;  EFIVAR 

CALL:  SUBROUTINE  EFIVAR  (CYCEN.II) 

Call  Arguments: 

CYCEN  solar  zenith  angle,  degrees 

II  selected  sample  area 


**  return  value 


Purpose:  Calculates 

E  and  Fl-layers 

ionospheric  variables, 

Included  Commons: 

Size  (4 

byte  words 

) 

All 

( 

24) 

DAT 

( 

192) 

r  •'NE 

( 

480) 

&,.0G 

( 

388) 

INP 

( 

68) 

ION 

( 

436) 

lONINP 

( 

480) 

ZENDAT 

( 

80) 

Entry  points:  EFIVAR 

Variables: 

R*4  AK 

R*4 

AZMTH 

R*4 

BETAE 

R*4 

BETAFl 

R*4  BK 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4  CKC 

R*4 

COND 

R*4 

COSDI 

R*4 

COSZ 

R*4  CYCEN 

R*4 

OK 

R*4 

EEK 

R*4 

EK 

R*4  EPR 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

1*4  ICCP 

■•4 

lEXO 

1*4 

IFX 

1*4 

II 

1*4  JDIM 

1*4 

JL 

1*4 

X3 

1*4 

MAN 

1*4  METH 

1*4 

METHOD 

1*4 

HON 

R*4 

PI2 

R*4  RZ 

R*4 

SSN 

R*4 

XI 

R*4 

Y1 

R*4  Z 

R*4 

ZMAX 

Arrays : 

R*4  ABIY 

(10) 

R*4  ACHI 

(2. 

12) 

R*4  ALOOK 

(6) 

R*4  AMON 

(12) 

R*4  ANEW 

(3, 

12) 

Subroutines  and  Functions  Referenced: 
R*4  MTHSCOS  R*4  MTH$SQRT 
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Module:  ERFl 


CALL:  REAL*16  FUNCTION  ERFl(X) 

Call  Arguments: 

X  Probability 

**  return  value 

Purpose:  calculates  standard  error  function  from  probability  X 

Included  Commons: 
no  user  defined  commons 

Entry  points:  *16  ERFl 

Variables: 

R*4  A1  R*4  A2  R*4  A3  R*4  A4 

R*4  POLY  R*4  POLY4  R*4  X 
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Module:  ESCON 


CALL:  SUBROUTINE  ESCON(FREQ,XNHP,VHIGHT,PAMAX,PA, 

1  LAYER, RANGE, AVAIL, PES,PESM,ESD) 

Call  Arguments: 

FREQ  Current  operating  frequency 

XNHP  Number  of  hops 

VHIGHT  Virtual  height  this  rayset 

PAMAX  best  availability  (so  far) 

PA  availability 

LAYER  ionospheric  layer  character  {  'ES' , 'F2 ' , 'FI ' ,OR  'E') 

RANGE  ground  range  to  end  of  hop 

AVAIL  calculated  availability  including  E, 

PES  Prob  that  freq  <  esd  for  es  layer 

PESM  Prob  that  freq  >  esd  for  all  other  layer 

ESD  FoEs*sec(PHI) ;  phi  depends  on  layer 


**  return  values 

Purpose:  This  routine  adds  E,  probability  to  availability  calculations. 

Included  Commons:  Size  (4  byte  words) 

MUFS  {  1044 ) 

ES  (  160) 

Entry  points:  ESCON 

Variables: 


R*4 

AVAIL 

R*4 

BETA 

R*4 

CB 

R*4 

ESD 

R*4 

FREQ 

R*4 

HE 

R*4 

HFl 

CHAR 

LAYER 

1*4 

MOOHUF 

R*4 

PA 

R*4 

PAMAX 

R*4 

PES 

R*4 

PESM 

R*4 

PHB 

R*4 

PHES 

R*4 

PHF 

R*4 

PHFl 

R*4 

RANGE 

R*4 

RATE 

R*4 

RATES 

R*4 

RATFl 

R*4 

RATF2 

R*4 

RE 

R*4 

SB 

R*4 

VHIGHT 

R*4 

XNHP 

Arrays : 

R*4  AFMUF 

(4) 

R*4 

ALLMUF 

(24) 

R*4 

ANGMUF 

(24) 

R*4 

DELMUF 

(4) 

R*4 

EMUF 

(24) 

R*4 

ESMUF 

(24) 

R*4 

FIMUF 

(24) 

R*4 

F2MUF 

(24) 

R*4 

FOT 

(24) 

R*4 

FS 

(3, 

R*4 

FVMUF 

(4) 

R*4 

HPF 

(24) 

R*4 

HPMUF 

(4) 

R*4 

HS 

(10) 

R*4 

HTMUF 

(4) 

1*4 

NHOPMP 

(4) 

R*4 

SIGL 

(4) 

R*4 

SIGU 

(4) 

R*4 

XLUF 

(24) 

R*4 

YFOT 

(4) 

R*4 

YHPF 

(4) 

R*4 

YMUF 

(4) 
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ESCON  ( cont . ) 

Subroutines  and  Functions  Referenced: 

R*4  MTH$ASIN  R*4  MTH$ATAN  R*4  MTH$COS  R*4 


MTH$SI 
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Module;  ESDIS 

CALL:  SUBROUTINE  ESDIS  (ESMUF,FREQ,KSIDE, IT,SIG) 

Call  Arguments: 

ESMUF  E..  layer  MUF 

FREQ  current  operating  frequency 

KSIDE  hop  number 

IT  Greenwhlch  mean  time 

SIG  probability  that  freq  <  esmuf 

**  return  value 

Purpose:  Calculates  probability  of  sporadic-E  modes  and  determine  losses 


Included  Commons: 

ES 

Size 

( 

(4  byte  words) 

120) 

Entry  points:  ESDIS 

Variables: 

R*4  ESMUF 

1*4  KSIDE 

R*4  SIG 

R*4  FAT 

R*4  SCI 

R*4 

R*4 

FREQ 

SC2 

1*4 

R*4 

IT 

SC3 

Arrays : 

R*4  FOES 

(10,  3) 

ISO 


Module:  ESIND 

CALL:  SUBROUTINE  ESIND  (GMT) 

Call  Argument s : 

GMT  Greenwhich  Mean  Time 

**  returned  value 

Purpose:  Calculates  the  sporadic-E  MUF  by  a  call  to  VERSY.  Data  for  the  E,» 

layer  was  calculated  in  REDMAP. 

Included  Commons:  Size  (4  byte  words) 


All 

( 

24) 

ES 

( 

160) 

GEOG 

( 

336) 

lONINP 

( 

480) 

Entry 

points:  ESIND 

Variables: 

R*4 

GMT 

1*4 

ID 

I 

Arrays : 

R*4 

ABIY 

(10) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

FESINP 

(10, 

3) 

R*4 

FIINP 

(10, 

3) 

R*4 

FOES 

(10, 

3) 

R*4 

GAMMA 

(6) 

R*4 

GLAT 

(10) 

R*4 

GY 

(10) 

R*4 

HIINP 

(10, 

3) 

R*4 

HS 

(10) 

R*4 

PSC 

(4) 

R*4 

RAT 

(10) 

R*4 

RD 

(10) 

R*4 

YIINP 

(10, 

3) 

Subroutines  and  Functions  Referenced: 
VERSY 
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Module:  ESSNR 

CALL:  SUBROUTINE  ESSNR  (lESPLG) 

Call  Arguments: 

lESFLG  Flag  to  u8e(+)/not  use(O)  E,  layer 

**  return  value 


Purpose:  determines  raysets  and  all  variables  used  in  RADAR  equation 

associated  with  sporadic-E  modes. 


Included  Commons: 

Size 

(4  byte  words) 

ANT 

( 

368) 

APLT 

( 

60) 

DAT 

{ 

192) 

ES 

( 

160) 

FOLO 

( 

9360) 

GEOG 

( 

348) 

HOP 

( 

4) 

ILOS 

( 

2880) 

INP 

( 

92) 

ION 

( 

436) 

LUNITS 

{ 

48) 

PLT 

{ 

3640) 

RADR 

( 

16) 

TIME 

{ 

23) 

TTSIZE 

( 

180) 

AVAIL  INP 

( 

112) 

mimsy” 

( 

2520) 

RAD2AVA 

( 

40) 

PIR 

( 

24) 

OVAL 

( 

8) 

Entry  points:  ESSNR 

Variables: 

R*4  ABPSl 

R*4 

ABSAl 

R*4 

ABSB 

R*4 

ADEL 

R*4  ADJ 

R*4 

AK 

R*4 

AMPANT 

R*4 

ANOISE 

R*4  AREA 

R*4 

AREF 

R*4 

AZMTH 

R*4 

AZRAD 

R*4  BANDW 

R*4 

BANDWO 

R*4 

BK 

R*4 

BMONS 

R*4  BWIDTH 

R*4 

C180 

R*4 

C360 

R*4 

CIT 

R*4  CK 

R*4 

CKC 

R*4 

COND 

CHAR 

DATETIME 

R*4  DEL 

R*4 

DELAY 

R*4 

DELINC 

R*4 

DINC 

R*4  DK 

R*4 

DUM 

R*4 

DUMMY 

R*4 

DWR 

R*4  ECLUT 

R*4 

ECLUTO 

R*4 

EEK 

R*4 

EK 

R*4  EPR 

R*4 

ETA 

R*4 

FCLUT 

R*4 

FCLUTO 

R*4  FCLUT2 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GAIN 

R*4  GCD 

R*4 

GDR 

R*4 

GLG 

R*4 

GMT 

R*4  GNDLOS 

R*4 

GT 

R*4 

HANG 

R*4 

HP 

R*4  HWIDTH 

1*4 

I 

1*4 

lANT 

1*4 

lAZMTH 

1*4  IBCL 

1*4 

I  DUM 

1*4 

lES 

1*4 

lESFLG 

Arrays: 

R*4  ABIY 

(10) 

R*4  ADV 

(4, 

45) 

R*4  AGAIN 

(45) 

R*4  ALOOK 

(6) 

R*4  AMON 

(12) 

R*4  AMP 

(8, 

45) 

R*4  ANDV 

(4, 

45) 
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ESSNR  (cont.) 


R*4 

AOF 

(4, 

45) 

R*4 

ARF 

(4, 

45) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

CNR 

(S, 

45) 

R*4 

CPDB 

(8, 

45) 

R*4 

DELH 

(10, 

45 

R*4 

DELI 

(10, 

45 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

FEC 

(10) 

R*4 

FOES 

(10, 

3) 

R*4 

FREL 

(15) 

R*4 

GDIST 

(4, 

45) 

R*4 

GLAT 

(10) 

Subroutines  and  Functions  Referenced: 

ABILITY  V3  CORDY  R*4  GLOSS  R*4  MTH$AL 
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Module:  ESTERP 

CALL:  SUBROUTINE  ESTERP 

Purpose:  Sets  indicies  for  sporadic  E-layer  printer  plots 


Included  Conunons:  Size  (4  byte  words) 


APLT 

( 

52) 

BS 

( 

160) 

ESTAB 

( 

3996) 

FOLO 

( 

5040) 

HOP 

( 

4) 

ILOS 

( 

2880) 

INP 

( 

72) 

PLT 

( 

5080) 

PLTAB 

( 

11992) 

Entry 

points:  ESTERP 

Variables: 

R*4 

AZMTH 

R*4 

BMONS 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GMT 

1*4 

I 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

IC 

1*4 

ICDF 

1*4 

ICFR 

1*4 

ICNR 

1*4 

lEXD 

1*4 

IFR 

1*4 

IGND 

1*4 

INOS 

1*4 

IPWUS 

1*4 

IREFF 

1*4 

I  SNR 

1*4 

ISSN 

1*4 

I  STAR 

1*4 

IT 

1*4 

JFR 

1*4 

JNR 

1*4 

KMAX 

1*4 

L 

1*4 

LIMHOP 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

MSNR 

R*4 

PWR 

R*4 

SSN 

R*4 

XI 

R*4 

X2 

R*4 

Yl 

R*4 

Y2 

Arrays : 

R*4 

ADV 

(4, 

45) 

R*4 

ALOOK 

(6) 

R*4 

AMP 

(8, 

45) 

R*4 

ANDV 

(4, 

45) 

R*4 

AOF 

(4, 

45) 

R*4 

ARF 

(4, 

45) 

R*4 

DELH 

(10, 

45) 

B*4 

DELI 

(10, 

45) 

R*4 

FOES 

(10, 

3) 

R*4 

HS 

(10) 

1*4 

lAMP 

(8, 

45) 

1S4 


Module:  FICOF 


CALL;  SUBROUTINE  FlCOF 

Purpose:  Determines  data  base  and  calculates  Fl-layer  parameters 

numerical  coefficients 


Included  Commons:  Size  (4  byte  words) 


FONE 

( 

480) 

INP 

{ 

68) 

LUNITS 

( 

48) 

Entry 

points:  FICOF 

Variables: 

R*4 

AZMTH 

R*4 

D2R 

R*4 

GMT 

1*4 

1*4 

ICCP 

1*4 

lEXD 

1*4 

J 

1*4 

1*4 

L 

1*4 

LANT 

1*4 

LCON 

1*4 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

1*4 

LTAR 

1*4 

M 

1*4 

MAN 

1*4 

1*4 

METHOD 

1*4 

MONS 

1*4 

MONTH 

R*4 

R*4 

TM 

R*4 

XI 

R*4 

Yl 

Arrays : 

R*4 

ABC 

(3) 

R*4 

ABCR 

(3) 

R*4 

ACHI 

(2, 

12) 

R*4 

ALOOK 

(6) 

R*4 

ANEW 

(3, 

12) 

R*4 

BCHI 

(2, 

12) 

R*4 

BNEW 

(3, 

12) 

R*4 

C 

(3) 

R*4 

DE 

(2) 

R*4 

DER 

(2) 

R*4 

FF 

(3, 

7) 

R*4 

GG 

(3, 

7) 

R*4 

HH 

(2, 

7) 

R*4 

JJ 

(2, 

7) 

R*4 

S 

(3) 

R*4 

uvw 

(3) 

R*4 

XY 

(2) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$COS  R*4  MTH$SIN 


from  monthly 


I 

K 

LGEO 

LOUTl 

LSEMI 

METH 

SSN 
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Module:  F2VAR 

CALL:  SUBROUTINE  F2VAR 

Purixase:  Uses  F2-layer  numerical  maps  calculated  by  VERSY 


Included  Commons:  Size  (4  byte  words) 


All 

( 

24) 

DAT 

{ 

192) 

GEOG 

( 

336) 

ION 

( 

436) 

INP 

{ 

68) 

lONINP 

( 

480) 

OVAL 

( 

8) 

ZENDAT 

( 

80) 

Entry 

points:  F2VAR 

Variables: 

R*4 

AK 

R*4 

AZMTH 

R*4 

BK 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

DELZ 

R*4 

DH 

R*4 

DHN 

R*4 

DK 

R*4 

EC 

R*4 

EEK 

R*4 

EK 

R*4 

FC 

R*4 

FCl 

R*4 

FCEC 

R*4 

FFEC 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

R*4 

HM 

R*4 

HN 

1*4 

ICCP 

1*4 

lEXO 

1*4 

IFX 

1*4 

II 

1*4 

JDIM 

1*4 

JL 

1*4 

K3 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

MYR 

R*4 

PI2 

R*4 

RET 

R*4 

RFN 

R*4 

RFT 

R*4 

RZ 

R*4 

SSN 

R*4 

SZ 

R*4 

XI 

R*4 

XF'' 

R*4 

XXP 

R*4 

Yl 

R*4 

YIMAX 

R*4 

YM 

R*4 

YN 

R*4 

Z 

R*4 

ZNAX 

R*4 

ZN 

Arrays : 

R*4 

ABIY 

(10) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

Subroutines  and  Functions  Referenced: 

R*4  MTHSALOG  POLARC  VERSY 


156 


Module:  FKEP 

CALL:  FUNCTION  FKEP(M,E) 

Call  Arguments: 

M  mean  anomoly 

E  eccentricity 

**  return  value 

Purpose:  Calculates  true  anomaly 

Included  Commons: 
no  user  defined  commons 

Entry  points :  FKEP 

Variables: 

R»4  C403  R*4  CEM  R*4 

R*4  SEM 

Subroutines  and  Functions  Referenced: 

R*4  MTHSCOS  R»4  MTH$SIN 


157 


Module:  FOBBY 

CALL:  SUBROUTINE  FOBBY  (FMAXX) 

Call  Arguments: 

FMAXX  Maximum  frequency  supported,  MHz. 

**  return  value 

Purpose:  Generates  the  reflectrix  and  determines  oblique  frequencies. 


Included  Commons:  Size  (4  byte  words) 


APLT 

( 

52) 

A2 

( 

432000) 

DAT 

( 

192) 

FOLO 

( 

5040) 

HGH 

( 

28800) 

INP 

( 

68) 

ION 

( 

436) 

LUNITS 

( 

48) 

RADR 

( 

16) 

Entry  points:  FOBBY 

Variables: 

R*4 

AI 

R*4 

AK 

R*4 

AZMTH 

R*4 

BK 

R*4 

BWIDTH 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

COSPHE 

R*4 

DEL 

R*4 

DELINC 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

FMAXX 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

FV 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

1*4 

1 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

ICCP 

1*4 

lEXD 

1*4 

IFR 

1*4 

IFX 

1*4 

INONS 

1*4 

IPWUS 

1*4 

ISSN 

1*4 

IT 

1*4 

J 

1*4 

JOIN 

1*4 

JL 

1*4 

K 

1*4 

KFX 

1*4 

KJ 

1*4 

KK 

1*4 

KL 

1*4 

KMAX 

1*4 

KMN 

1*4 

KND 

1*4 

KX 

1*4 

KY 

1*4 

KZ 

1*4 

L 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

N 

R*4 

PHE 

R*4 

PI2 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

R 

R*4 

RCOSD 

R*4 

SSN 

R*4 

XI 

R*4 

X2 

R*4 

XJ 

R*4 

Y1 

R*4 

y2 

Arrays : 

R*4 

LOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

AMP 

(8, 

45) 

R*4 

DELH 

(10, 

45) 

R*4 

DELI 

(10, 

45) 

R*4 

DFR 

(240 

,  10) 

R*4 

FI 

(10, 

3) 

R*4 

FOB 

(240 

,  450) 

R*4 

FOBMAX 

(10) 

R*4 

FREL 

(IS) 

R*4 

HI 

(10, 

3) 

R*4 

HPRIM 

(240 

,  10) 

R*4 

HTRUE 

(240 

,  10) 

FOBBY  ( cont . ) 


(2,  12) 
(10,  3) 


R*4  SUN 
R*4  YI 
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Module:  fpok 

CALL:  subroutine  fpok{tg,pg,xkp,une) 

Call  Arguments: 

TG  geographic  latitude,  radians 

PG  geographic  longitude,  radians 

XKP  planetary  magnetic  index  (input  as  'KP') 

UNB  3  component  array  describing  local  magnetic  field 

**  return  value 

Purpose:  Determines  probability  of  spread  Doppler 

Included  Commons:  Size  (4  byte  words) 


POK 

{ 

SOL 

( 

VEL 

( 

W 

( 

DOP 

( 

PIR 

( 

TRACE 

( 

SUM 

( 

Entry  points:  FPOK 

Variables: 

R*4 

SETAE 

R*4 

BETAF 

R*4 

CLG 

R*4 

CLON 

R*4 

CSDy2 

R*4 

OSLO 

R*4 

CZ2 

R<»4 

CZT 

R*4 

DB 

R*4 

DEG 

R*4 

DOPLE 

R*4 

DOPLF 

R*4 

GDEC 

R*4 

GHRNT 

R*4 

GLON 

1*4 

ITRC 

RM 

ORTANG 

R*4 

PG 

R*4 

PINC 

R*4 

PROBABLY  F 

R*4 

PROBF 

R*4 

PVBAR 

R*4 

SDEC 

R*4 

SGLO 

R*4 

SSLAT 

R*4 

SSLON 

R*4 

TOA 

R*4 

UT 

R*4 

VELEE 

R*4 

VELEN 

R*4 

VP 

R*4 

VSE 

Arrays 

i; 

R*4 

POS 

(3) 

R*4 

RAY 

(3) 

R*4 

SUN 

(14) 

e  R*4 

UNE 

(3) 

Subroutines  and  Functions  Referenced: 
CGMCS  R*4  MTH$ACOS 

R*4  PFIR 


84) 

56) 

16) 

16) 

16) 

24) 

20) 

16) 


R*4 

CCLT 

R*4 

CLAT 

R*4 

CLT 

R*4 

CSDC 

R*4 

CZ 

R*4 

CZl 

R*4 

D15 

R*4 

D2R 

R*4 

DEL 

R*4 

DIP 

R*4 

EPSLON 

R*4 

FPOX 

R*4 

GLAG 

R*4 

GLAT 

1*4 

KLMT 

1*4 

LAYER 

R*4 

PI 

R*4 

PI2 

R*4 

PROBABLY  P 

R*4 

PROBE 

R*4 

R2D 

R*4 

SCLT 

R*4 

SQR2 

R*4 

SSDC 

R*4 

TG 

R*4 

TIME 

R*4 

VAL 

R*4 

VE 

R*4 

VELFE 

R*4 

VELFN 

R*4 

VSF 

R*4 

XKP 

R*4  MTH$ALOG10  R*4  MTH$CO 
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Module:  GAUSS 

CALL:  FUNCTICM  GAUSS  (C) 


Call  Arguments: 

C  Deviation  from  median  in  standard  units 


**  return  value 


Purpose:  calculates  the  probability  associated  with  a  given  deviation 


Included  Commons: 
no  user  defined  commons 


Entry  points:  GAUSS 
Variables: 

R*4  B  R*4  C  1*4  I 

R*4  UPLIM  R*4  y 


R*4  SUM 


Arrays: 

R*4  A  (8) 

R*4  H  (8) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$EXP 
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Module:  GENFAM 


CALL:  SUBROUTINE  GENFAM  (Y2 , IBLK, FREQ, Z , FA) 

Call  Arguments: 

Y2  real  variable  containing  the  sign  of  the  latitude 
IBLK  Index  to  coefficient  array  (see  noisy) 

FREQ  current  operating  frequency 

Z  atmospheric  noise  at  1  MHz  calculated  by  noisy,  dB  )cTb 
**  FA  atmospheric  noise  with  frequency  dependence,  dBw 

**  return  value 


Purpose:  Determines  frequency  dependence  of  atmospheric  noise 


Included  Commons:  Size  (4  byte  words) 

DUD  (  1248) 

Entry  points:  GENFAM 


Variables: 


R*4 

CZ 

R*4 

FA 

R*4 

FREQ 

1*4 

1*4 

IBK 

1*4 

IBLK 

1*4 

KOP 

R*4 

R*4 

PZ 

R*4 

U 

R*4 

U1 

R*4 

R*4 

Y2 

R*4 

Z 

Arrays: 
R*4  FAM 
R*4  SYS 
R*4  V 


(14,  12) 
(9,  16) 
(5) 


Subroutines  and  Functions  Referenced: 
R*4  MTH$ALOG 
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H  O,  X 


Module:  GENION 


CALL:  SUBROUTINE  GENION 

Purpose:  Integrates  the  true  height  electron  density  profiles  to  obtain  a 

virtual  height  profile  that  will  be  used  for  all  calculations  from 
this  point. 


Included  Commons:  Size  (4  byte  words) 


A2 

( 

432000) 

HGH 

( 

28800) 

ION 

( 

436) 

Entry  points: 

GENION 

Variables: 

R*4 

FNYI 

R*4 

FR 

R*4 

FX 

R*4 

HP 

R*4 

HR 

R*4 

HRMZ 

1*4 

I 

1*4 

IFX 

1*4 

IG 

1*4 

JOIN 

1*4 

JF 

1*4 

JFD 

1*4 

JL 

1*4 

K 

1*4 

KFX 

R*4 

MXP 

R*4 

MYP 

1*4 

NPL 

1*4 

NT 

R*4 

TWDIV 

R*4 

XNPL 

R*4 

YSQ 

R*4 

ZG 

R*4 

ZI 

Arrays : 

R*4 

AFAC 

(240, 

10) 

R*4 

FI 

(10, 

3) 

R*4 

FNSQ 

(200, 

10) 

R*4 

FOB 

(108000) 

R*4 

FREL 

(15) 

R*4 

HB 

(10) 

R*4 

HI 

(10, 

3) 

R*4 

HPHAS 

(240, 

10) 

R*4 

HPRIM 

(240, 

10) 

R*4 

HTP 

(10) 

R*4 

WT 

(20) 

R*4 

XT 

(20) 

R*4 

YI 

(10, 

3) 

Subroutines  and  Functions  Referenced: 

R*4  MTHSSQRT  VPLOT  R*4  XLIN 
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Module:  GEOM 

CALL;  SUBROUTINE  GEOM  (ILOOK) 

Call  Arguments: 

ILOOK  index  to  sample  area 

**  return  value 

Purpose:  Calculates  geographical  and  geomagnetic  parameters. 

Included  Commons:  Size  (4  byte  words) 

All  (  24i 


DAT 

( 

GEOG 

( 

ION 

( 

INP 

( 

Entry  points:  GEOM 

Variables: 

R*4 

AK 

R*4 

AZMTH 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

CKC 

R*4 

OK 

R*4 

EEK 

R*4 

GAT 

R*4 

GLG 

1*4 

ICCP 

1*4 

lEXD 

1*4 

ILOOK 

1*4 

lOP 

1*4 

K3 

1*4 

MAN 

1*4 

MONS 

R*4 

PI2 

R*4 

SSN 

R*4 

WLO 

R*4 

Y1 

R*4 

YYl 

Arrays : 

R*4 

ABIV 

(10) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

FEC 

(10) 

R*4 

FREL 

(15) 

R*4 

GAMMA 

(6) 

R*4 

GLAT 

(10) 

R*4 

GMDIP 

(10) 

R*4 

GY 

(10) 

Subroutines  and  Functions  Referenced: 
CORUy  MAGVAR 


192) 

388) 

436) 

68) 


R*4 

BK 

R*4 

BTRY 

R*4 

CENLAT 

R*4 

CBNLG 

R*4 

CLG 

R*4 

COND 

R*4 

EK 

R*4 

EPR 

R*4 

GLT 

R*4 

GMT 

1*4 

IFX 

1*4 

II 

1*4 

JDIM 

1*4 

JL 

1*4 

METH 

1*4 

METHOD 

R*4 

PP 

R*4 

RZ 

R*4 

XI 

R*4 

XXI 

1*4  MAP  R*4  MTH$AC 


Module:  GEOMAG 


CALL:  SUBROUTINE  GBOMAG  ( XLAT , XLONG , GMLAT , GMLONG ) 

Call  Arguments: 

XLAT  geographic  latitude  coordinate,  degrees. 
XLONG  geographic  longitude  coordinate,  degrees. 

**  GMLAT  geomagnetic  latitude  coordinate,  degrees. 

**  GMLONG  geomagnetic  longitude  coordinate,  degrees 

**  return  value 


Purpose:  Converts  a  poxnt  grven  rn  geographic  coordinates  to  corresponding 

corrected  geomagnetic  coordinates 

Included  Commons:  Size  (4  byte  words) 

TABLE  (  51264) 


LUNITS  ( 

Entry  points:  GEOMAG 
Variables: 


R*4 

AA 

R*4 

AAORG 

R*4 

BB 

R*4 

BETA 

R*4 

D 

R*4 

DD 

R*4 

FPMD 

CHAR 

GFILE 

R*4 

GMLNS 

R*4 

GMLONG 

1*4 

I 

1*4 

IM 

1*4 

IT 

1*4 

ITP 

1*4 

JREAO 

1*4 

K 

1*4 

LCON 

1*4 

LGEO 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LSCRT 

1*4 

LSEMI 

R*4 

PHI 

R*4 

Q 

R*4 

XLONG 

R*4 

Y 

Arrays : 

R*4 

A 

(2, 

72,  89) 

1*4 

IIN 

(2) 

1*4 

IIT 

(2) 

R*4 

XP 

(2) 

R*4 

yp 

(2) 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  FOR$OPEN 


48) 


R*4 

AORG 

R*4 

B 

R*4 

C 

R*4 

CC 

R*4 

FA 

R*4 

FB 

R*4 

GMLAT 

R*4 

GMLNN 

R*4 

GMLTN 

R*4 

GMLTS 

1*4 

IMP 

1*4 

IP 

1*4 

J 

1*4 

JLN 

1*4 

L 

1*4 

LANT 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LOUT2 

1*4 

L0UT3 

1*4 

LTAR 

R*4 

P 

R*4 

X 

R*4 

XLAT 

R*4  MTHSAMOD  R*4  MTHSCO 
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Module:  GIMBAL 


CALL:  SUBROUTINE  GIMBAL  (MODE) 

Call  Arguments: 

MODE  integer  flag  to  identify  desired  value 

0  Sidereal  time  (sid)  and  apparent  solar  time  (ast)  only 

1  Sid, ast,  and  corrected  geomagnetic  time  (cmt) 

2  Sid, ast,  and  centered  dipole  magnetic  time  (dmt) 

3  Sid, ast, cmt, dmt  are  all  computed. 

**  return  value 

Purpose:  Updates  the  solar  emphemeris  data  computed  by  GYRE  to  sideral, 

corrected  geomagnetic  and  earth  centered  dipole  magnetic  time 


Included  Commons:  Size  (4  byte  words) 


BRILIG 

( 

52) 

RATHS 

( 

80) 

SLITHY 

( 

44) 

TOVES 

( 

92) 

WABE 

( 

96) 

Entry  points: 

GIMBAL 

Variables: 

R*4 

A 

R*4 

ALPHA 

R*4 

AS 

R*4 

B 

R*4 

CE 

R*4 

CM 

R*4 

CO 

R*4 

D 

R*4 

OBDT 

R*4 

DDDT 

R*4 

DELTA 

R*4 

DIP 

R*4 

DLDT 

R*8 

DP 

R*4 

DQDT 

R*4 

DRDT 

R*4 

OS 

R*4 

DT 

R*4 

DUDT 

R*4 

DVDT 

R*4 

DXDT 

R*4 

DYDT 

R*4 

DZDT 

R*4 

E 

R*4 

ED 

R*4 

GD 

R*4 

GM 

R*4 

HM 

R*4 

HN 

R*4 

HOUR 

1*4 

I 

1*4 

JD 

1*4 

K 

1*4 

L 

1*4 

M 

1*4 

MN 

1*4 

MODE 

1*4 

MODED 

1*4 

N1 

1*4 

ND 

1*4 

NH 

1*4 

NJ 

1*4 

NM 

1*4 

NS 

1*4 

NY 

R*4 

O 

R*4 

P 

R*8 

PD 

R*8 

PI 

R*4 

PM 

R*4 

PP 

R*4 

Q 

R*4 

R 

R*4 

SE 

R*4 

SG 

R*4 

SID 

R*4 

SM 

R*4 

SO 

R*4 

SOLONG 

R*4 

ST 

R*4 

SUN 

R*4 

T 

R*4 

T2 

R*4 

TD 

Arrays: 

R*4  PH  (14) 

R*4  TIME  (4) 

Subroutines  and  Functions  Referenced: 

COSD  DIPOLE  GEOMAG 
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Module:  GLOSS 

CALL;  REAL  FUNCTION  GLOSS (RLAT,  ALONG,  DELTA) 

Call  Arguments: 

RLAT  geographic  latitude,  degrees. 

ALONG  geographic  longitude,  degrees. 

DELTA  take-off  angle,  degrees. 

**  return  value 

Purpose:  Calculates  the  reflection  loss  per  hop  for  multi-hop  paths 

Included  Commons:  Size  (4  byte  words) 


APLT 

Entry  points:  GLOSS 

( 

4) 

Variables: 

R*4  ALFA 

R*4 

ASIX 

R*4 

COSDSQ 

R*4 

DELTA 

R*4  EPS 

R*4 

FREQ 

1*4 

ILAT 

1*4 

ILONG 

R*4  RHO 

R*4 

RLAT 

R*4 

ALONG 

R*4 

SIG 

R*4  SIND 

R*4 

SIND2 

R*4 

SIND4 

R*4 

SQRHO 

R*4  SQZETA 

R*4 

TEMP 

R*4 

WKHSQ 

R*4 

WKVSQ 

R*4  WLD 

Subroutines  and 

r> 

Functions 

WLG 

Referenced: 

R*4 

XW 

R*4 

ZETA 

1*4  MAP 

R*4  MTH$SQRT 

R*4 

MTH$ALOG 

R*4 

MTH$ASIN 

R*4  MTH$AT 
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Module:  GYRE 


CALL:  SUBROUTINE  GYRE 

Purpose:  Computes  solar  ephemeris  data  of  this  time,  in  particular,  right 

ascension,  declination,  and  Greenwich  SID  time 


Included  Commons:  Size  (4 

BRILIG  ( 

RATHS  ( 

SLITHY  { 

TOVES  { 


Entry  points:  GYRE 


Variables: 

R*4  A 

R*4 

B 

R*4 

CO 

R*4 

D 

R*4 

DLDT 

R*8 

DP 

R*4 

DT 

R*4 

DUDT 

R*4 

DYDT 

R*4 

D2DT 

R*4 

E3 

R*4 

ED 

1*4 

J 

1*4 

JD 

R*4 

L 

R*4 

M 

1*4 

ND 

1*4 

NGM 

1*4 

NM 

1*4 

NS 

R*4 

P 

R*8 

PD 

R*4 

R 

R*4 

RHl 

R*4 

SM 

R*4 

SO 

R*4 

U 

R*4 

V 

R*4 

XI 

R*4 

X2 

Arrays : 

R*8  CX 

(3) 

R*4 

EL 

(23) 

R*4 

PCON 

(17) 

R*4 

PH 

(14) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$ATAN  R*4  MTH$ATAN2 


byte  words) 


52) 

80) 

44) 

92) 

R*4 

CE 

R*4 

CM 

R*4 

DBDT 

R*4 

DDDT 

R*4 

DQDT 

R*4 

DRDT 

R*4 

DVDT 

R*4 

DXDT 

R*4 

E 

R*4 

E2 

R*4 

HOUR 

R*4 

I 

1*4 

K 

1*4 

KK 

1*4 

MN 

1*4 

N1 

1*4 

NH 

1*4 

NJ 

1*4 

NY 

R»4 

O 

R*8 

PI 

R*4 

Q 

R*4 

RH2 

R*4 

SE 

R*4 

T 

R*4 

T2 

R*4 

W 

R*4 

X 

R*4 

Y 

R*4 

z 

R*4  MTH$COS  R*4  MTHSSI 
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Module:  HEAD99 


CALL:  SUBROUTINE  HEAD99 


Purpose:  Writes  the  binary  header  in  the  FOR099.DAT  file.  This  scratch  file 

is  used  by  read99  and  rea992  to  generate  combined  raysets  tables. 


Included  Commons: 
APLT 
INP 

LUNITS 

RADR 

Entry  points:  HEAD99 


Size  (4  byte  words) 
(  36) 

(  88) 

(  48) 

(  12) 


Variables: 


R’*4 

AZMTH 

R*4 

BMONS 

R*4 

FREQQ 

R*4 

GMT 

1*4 

IGND 

1*4 

I  SNR 

1*4 

KMAX 

1*4 

LANT 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LTAR 

1*4 

MAN 

1*4 

MONS 

1*4 

NLAT 

R*4 

PKAVG 

R*4 

PWID 

R*4 

SSN 

R*4 

TAR 

R*4 

TIMLOG 

R*4 

TXLAT 

R*4 

X2 

R*4 

Yl 

R*4 

BWIDTH 

R*4 

FREQ 

1*4 

lAZMTIl 

1*4 

lEXO 

1*4 

ISSN 

1*4 

IT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LSCRT 

1*4 

LSEHI 

1*4 

METH 

1*4 

METHOD 

1*4 

NLON 

R*4 

OTH 

R*4 

PWP 

R*4 

PWR 

R*4 

TARS I Z 

R*4 

TIMEIT 

R*4 

TXLON 

R*4 

XI 

R*4 

y2 

Arrays : 


R*4 

ALOOK 

(6) 

1*4 

NNLAT 

(2) 

1*4 

NNLON 

(2) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$ALOG10 
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Module:  INLEC 


CALL:  SUBROUTINE  INLEC  (JL) 

Call  Arguments: 

JL 

**  return  value 

Purpose:  reads  electron  density  profile  or  virtual  heights ( ionogreun) 

Included  Commons:  Size  (4  byte  words) 

A2  (  432000) 


HGH 

( 

INP 

( 

LUNITS 

( 

Entry  points:  INLEC 

Variables: 

R*4 

AZMTH 

R*4 

GMT 

1*4 

ID 

1*4 

lEXD 

1*4 

IN 

1*4 

I  SNR 

1*4 

JL 

1*4 

K 

1*4 

LCON 

1*4 

LGEO 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

MAN 

1*4 

METH 

1*4 

N 

R*4 

OTH 

R*4 

TAR 

R*4 

TIMEIT 

Arrays : 

10) 

R*4 

AFAC 

(240, 

R*4 

ALOOK 

(6) 

R*4 

FNSQ 

(200, 

10) 

R*4 

FOB 

(108000) 

28800) 
92) 
48) 


R*4 

HANG 

1*4 

I 

1*4 

IGND 

1*4 

IK 

1*4 

IX 

1*4 

J 

1*4 

L 

1*4 

LANT 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LTAR 

1*4 

M 

1*4 

METHOD 

1*4 

MONS 

R*4 

PKAVG 

R*4 

SSN 

R*4 

XI 

R*4 

Y1 

Subroutines  and  Functions  Referenced: 
VPLOT 


Module:  INPUT 

CALL;  SUBROUTINE  INPUT 

Purpose:  to  read  electron  density  information  from  a  file 


Included  Commons:  Size  (4  byte  words) 


ANT 

( 

372) 

APLT 

( 

60) 

DAT 

( 

192) 

ES 

( 

160) 

GEOG 

( 

348) 

INP 

( 

92) 

ION 

( 

436) 

LUNITS 

( 

48) 

RADR 

( 

24) 

SLS 

( 

88) 

Entry  points:  INPUT 

Variables: 

R*4 

AK 

R*4 

ASKP 

R*4 

AZMTH 

R*4 

R*4 

BWIDTH 

R*4 

C180 

R*4 

C360 

R*4 

R*4 

CKC 

R*4 

COND 

R*4 

DELINC 

R*4 

R*4 

EEK 

R*4 

EK 

R*4 

EPR 

R*4 

R*4 

FREQ 

R*4 

GAZM 

R*4 

GLG 

R*4 

R*4 

GMT 

R*4 

HANG 

R*4 

HWIDTH 

1*4 

1*4 

lA 

1*4 

I  ANT 

1*4 

lAZMTH 

1*4 

1*4 

IFR 

1*4 

IFX 

1*4 

IGND 

1*4 

1*4 

IPWUS 

1*4 

IQRT 

1*4 

ISNR 

1*4 

1*4 

IT 

1*4 

J 

1*4 

JDIM 

1*4 

1*4 

JL 

1*4 

K 

1*4 

KMAX 

1*4 

1*4 

KZ 

1*4 

LANT 

1*4 

LCON 

1*4 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

1*4 

LTAR 

1*4 

MAN 

1*4 

METH 

1*4 

1*4 

MONS 

R*4 

OTH 

R*4 

PI2 

R*4 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

R*4 

SIGBAK 

R*4 

SKPSIG 

R*4 

SNOISE 

R*4 

R*4 

TAR 

R*4 

TIMEIT 

R*4 

XI 

R*4 

R*4 

Yl 

R*4 

Y2 

Arrays ; 

R*4 

ABIY 

(10) 

R*4 

AGAIN 

(45) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

FEC 

(10) 

R*4 

FFAK 

(2) 

R*4 

FOES 

(10, 

3) 

R*4 

FREL 

(15) 

R*4 

GLAT 

(10) 

R*4 

GRLOS 

(45) 

R*4 

GY 

(10) 

R*4 

HE 

(10) 

R*4 

HFl 

(10) 

BK 

CK 

DK 

FNOISE 

GLT 

1 

lEXD 

IMONS 

ISSN 

JOIN 

KX 

LGEO 

LOUTl 

LSEMI 

METHOD 

PKAVG 

RZ 

SSN 

X2 
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INPUT 

R*4 

HF2 

(10) 

R*4 

HS 

(10) 

1*4 

ZSCLS 

(5, 

1*4 

ITIM 

(5, 

R*4 

PSC 

(4) 

R*4 

RAT 

(10) 

R*4 

RO 

(10) 

R*4 

SUN 

(2, 

R*4 

YNE 

(10) 

R*4 

YMFl 

(10) 

R*4 

YMF2 

(10) 

Subroutines  and  Functions  Referenced: 
INLEC  R*4  MTHSALCX5 
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Module:  INTERP 


CALL:  SUBROUTINE  INTERP 

Purpose:  Sets  indicies  for  regular  layer  printer  plots  (E,F1,  and  F2) 


Included  Commons:  Size  {4  byte  words) 


APLT 

( 

52) 

CPTRP 

( 

28) 

CPTEST 

( 

120) 

CUSP 

( 

960) 

DAT 

( 

192) 

FOLD 

( 

5040) 

HOP 

( 

4) 

INP 

( 

72) 

MIMSY 

( 

2520) 

PLT 

( 

5080) 

PLTAB 

( 

11992) 

Entry 

points: 

INTERP 

Variables: 

R*4 

AK 

R*4 

AZMTH 

R*4 

BK 

R*4 

BMONS 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

1*4 

I 

1*4 

lANT 

1*4 

I AZMTH 

1*4 

IC 

1*4 

I  CDF 

1*4 

ICFR 

1*4 

I  CNR 

1*4 

ICP 

1*4 

ICPl 

1*4 

ICP3 

1*4 

lEXO 

1*4 

IFR 

1*4 

IGND 

1*4 

IPWUS 

1*4 

IREFF 

1*4 

I  SNR 

1*4 

ISSN 

1*4 

IT 

1*4 

JFR 

1*4 

JNR 

1*4 

KHAX 

1*4 

LHOP 

1*4 

LIMHOP 

1*4 

M 

1*4 

Ml 

1*4 

MAN 

1*4 

MCP 

1*4 

METH 

1*4 

METHOD 

1*4 

HONS 

1*4 

MSNR 

R*4 

PI2 

R*4 

PHR 

R*4 

RZ 

R*4 

SSN 

R*4 

XI 

R*4 

X2 

R*4 

Y1 

R*4 

Y2 

Arrays 

1  J 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

AMP 

(8, 

45) 

R*4 

AMPCP 

(4, 

10) 

R*4 

DELCP 

(4, 

10) 

Subroutines  and  Functions  Referenced: 
CPTERP  CUSPSG 


SETCP 


Module;  lONGEN 


CALL:  SUBROUTINE  lONGEN 


Purpose:  Retrieves  the  input  data  supplied  by  the  user  and  develops  the 

ionospheric  parameters  for  the  three  layers  (E,F1  and  F2). 


Included  Commons 
APLT 
DAT 
GEOG 
INP 
ION 

LUNITS 

RADR 


Size  (4  byte  words) 
(  60) 

(  180) 

(  336) 

(  92) 

(  436) 

(  48) 

(  24) 


Entry  points:  lONGEN 


Variables: 


R*4 

AK 

R*4 

AZMTH 

R*4 

BK 

R*4 

BWIDTH 

R*4 

CK 

R*4 

DELINC 

R*4 

DK 

R*4 

EEK 

R*4 

BK 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

R*4 

HANG 

1*4 

lANT 

1*4 

IA2 

1*4 

lAZMTH 

1*4 

lEXD 

1*4 

IFR 

1*4 

IFX 

1*4 

IGND 

1*4 

ILOOK 

1*4 

IMONS 

1*4 

IPWUS 

1*4 

IQRT 

1*4 

ISNR 

1*4 

ISSN 

1*4 

IT 

1*4 

ITSKP 

1*4 

ITSTP 

1*4 

ITSTR 

1*4 

JDIM 

1*4 

JL 

1*4 

K3 

1*4 

KMAX 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

LNAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

LSEMl 

1*4 

LTAR 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

NEWNOISE 

R*4 

OTH 

R*4 

PI2 

R*4 

PKAVG 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

SNOISE 

R*4 

SSN 

R*4 

TAR 

R*4 

TIMEIT 

R*4 

XI 

R*4 

X2 

R*4 

Y1 

R*4 

Y2 

Arrays: 


R*4 

ABIY 

(10) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

Subroutines  and  Functions  Referenced: 
BAKSCT  ESIND 


FICOF 


F2VAR 


READIN 


REOMAP 


TIMVAR 


VERTIM 
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Module:  JULIAN 

CALL:  FUNCTION  JULIAN(NY,MN,ND) 

Call  Arguments: 

NY  2-digit  year 

MN  2-digit  month 

ND  2-digit  day  of  the  month 

**  return  value 

Purpose:  Converts  Gregorian  calendar  date  to  Julian  day. 

Included  Commons: 
no  user  defined  commons 

Entry  points:  JULIAN 

Variables: 

1*4  LY  1*4  MN  1*4  ND  1*4  NY 

Arrays: 

1*4  MON  (12) 
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Module:  LECDEN 


CALL;  SUBROUTINE  LECDEN 

Purpose:  Calculates  the  electron  density  profiles  (parabolic  layers)  from 

the  parameters  read  in  by  INPUT. 


Included  Commons:  Site  (4  byte  words) 


A2 

( 

432000) 

HGH 

( 

28800) 

INP 

( 

68) 

ION 

( 

368) 

LUNITS 

( 

48) 

Entry 

points;  LECDEN 

Variables: 

R*4 

ALP 

R*4 

ASP 

R*4 

AZMTH 

R*4 

FCl 

R*4 

FC2 

R*4 

FCE 

R*4 

FLOW 

R»4 

FNl 

R*4 

FN2 

R»4 

FND 

R*4 

FNE 

R»4 

FNVAL 

R*4 

FSQ 

R*4 

FUP 

R*4 

GMT 

R*4 

H 

R*4 

HBl 

R*4 

HB2 

R*4 

HD 

R*4 

BLOW 

R*4 

HLZ 

R*4 

HMAX 

R*4 

HTl 

R*4 

HTE 

R*4 

HTW 

R*4 

HUP 

R*4 

HZ 

1*4 

I 

1*4 

ICCP 

1*4 

lEXD 

1*4 

IK 

1*4 

IX 

1*4 

JDIN 

1*4 

JH 

1*4 

JHD 

1*4 

K 

1*4 

L 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIN 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

LSEHI 

1*4 

LTAR 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

R*4 

SI 

R*4 

S2 

R*4 

SSN 

R*4 

XI 

R*4 

XLOW 

R*4 

XUP 

R*4 

Y1 

R*4 

YS 

R*4 

Z 

Arrays : 

R*4 

AFAC 

(240, 

10) 

R*4 

ALOOK 

(6) 

R*4 

FI 

(10, 

3) 

R*4 

FNSQ 

(200, 

10) 

R*4 

FOB 

(108000) 

R*4 

HB 

(10) 

R*4 

HI 

(10, 

3) 

R*4 

HPRAS 

(240, 

10) 

Subroutines  and  Functions  Referenced: 
R*4  MTHSEXP  R*4  MTHSSQRT 
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Module:  lintrp 

CALL:  real  function  lintrp ( freq.RXBW) 

Call  Arguments: 

FREQ  current  operating  frequency 

RXBW  vector  of  beamwidths  for  2  to  40  MHz,  every  2  MHz 
**  return  value 


Purpose:  interpolates  in  a  vector  of  frequency  dependent  beamwidths  to  return 

beamwidth  associated  with  current  frequency 


Included  Commons: 
no  user  defined  commons 


Entry  points:  LINTRP 


Variables: 

R*4  BEAMW 

R*4  FREQ 


R*4  DELTA 
R*4  FREQl 


R*4  DELVAL 

R*4  FREQINC 


R*4  FFREQ 

1*4  INDX 


Arrays : 

@  R*4  RXBW  (20) 
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Module:  MAGFIN 


CALL:  SUBROUTINE  MAGFIN  (POS,UNE) 

Call  Arguments: 

POS  3  dimensional  position  array  ( lat, Ion, alt ) ,  radians,  meters 

UNE  3  dimensional  geomagnetic  field 

**  return  value 

Purpose:  Calculates  the  three  magnetic  field  vectors. 

Included  Commons: 
no  user  defined  commons 

Entry  points:  MAGFIN 


Variables: 


R*4 

AR 

R*4 

BN 

R*4 

BPHI 

R*4 

BV 

R*4 

C 

R*4 

FM 

R*4 

FN 

R*4 

HC 

1*4 

M 

1*4 

N 

R*4 

PI 

R*4 

P2 

R*4 

PHI 

R*4 

RD 

R*4 

S 

R*4 

SUMP 

R*4 

SUMR 

R*4 

SUMT 

R*4 

TS 

Arrays : 

R*4 

AOR 

(7) 

R*4 

CP 

(7) 

R*4 

CT 

(7, 

7) 

R*4 

OP 

(7, 

7) 

R*4 

G 

(7, 

7) 

R*4 

H 

(7, 

7) 

R*4 

P 

(7, 

7) 

e  R*4 

POS 

(3) 

R*4 

SP 

(7) 

@  R*4 

UNE 

(3) 

Subroutines  and 

Functions 

Referenced: 

R*4 

MTH$COS 

R*4  MTHSSIN 

R*4  MTH$SQRT 
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Module:  MAGYAR 

CALL;  SUBROUTINE  MAGVAR  ( CENLAT , CENLG , I I , CLG ) 

CAll  Arguments: 

CENLAT  geographic  latitude  of  point  of  interest,  radians 

CENLG  geographic  west  longitude  of  point  of  interest,  radians 

II  sample  area  selector 

CLG  geographic  east  longitude  of  point  of  interest,  radians 

**  return  value 


Purpose:  Calculates  geomagnetic  dip  and  gyro-frequency. 

Included  Commons:  Size  (4  byte  words) 

DAT  (  192) 

GEOG  (  388) 

Entry  points :  MAGVAR 


Variables: 


R*4 

AK 

R*4 

BK 

R*4 

C180 

R*4 

C360 

R*4 

CENLAT 

R*4 

CENLG 

R*4 

CK 

R*4 

CKC 

R*4 

CLG 

R*4 

COND 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

EPR 

R*4 

GLG 

R*4 

GLT 

R*4 

GOB 

R*4 

HHM 

1*4 

II 

R*4 

PI2 

R*4 

RZ 

R*4 

TMP 

R*4 

X 

Arrays : 

R*4  ABIY 

(10) 

R*4 

AMON 

(12) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

GLAT 

(10) 

R*4 

GMOIP 

(10) 

R*4 

GY 

(10) 

R*4 

POS 

(3) 

R*4 

PSC 

(4) 

R*4 

RAT 

(10) 

R*4 

RD 

(10) 

R*4 

SUN 

(2, 

R*4 

UNE 

(3) 

Subroutines  and  Functions  Referenced: 

MAGFIN  R*4  MTHSATAN  R*4  MTHSCOS  R*4  MTH$SQ 
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Module:  MAP 

CALL:  FUNCTION  MAP  (RLAT,RLONG) 

Call  Arguments: 

RLAT  geographic  latitude,  degrees 

RLONG  geographic  west  longitude,  degrees 

**  return  value 


Purpose:  Digitized 

map  of 

the  land 

boundries 

of  the  world 

Included  Commons: 

Size  (4 

byte  words) 

LUNITS 

{ 

48) 

Entry  points:  MAP 

Variables: 

1*4 

CHAR  FILENAME 

1*4 

LANT 

1*4 

LAT 

1*4  LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

1*4  LONG 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

1*4  LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

L*1 

R*4  RLAT 

R*4 

RLONG 

Arrays : 

L*1  MAPBYT 

(-90: 

90,  0: 

Subroutines  and  Functions  Referenced: 
FOR$CLOSG  FOR$OPEN 


1*4  MTH$J1SIGN 


ISO 


LCON 

LNOISE 

LOUT3 

READ 


Module:  MERFI 


CALL:  SUBROUTINE  MERFI  (P,Y,IER) 

Call  Arguments: 

P  Input  value  in  the  exclusive  range  (-1.0, 1.0) 

Y  Output  value  of  the  inverse  error  function 
lER  Error  parameter  (output) 

terminal  error 

ier  =  129  indicates  p  lies  outside  the  legal  range.  Plus  or  minus 
machine  infinity  is  given  as  the  result  (sign  is  the  sign  of  the 
function  value  of  the  nearest  legal  argument) . 

**  return  value 

Purpose:  MERFI  calculates  the  inverse  error  function.  MERFI  IS  A  PROPRIETARY 

IMSL  ROUTINE  WHICH  MUST  BE  AVAILABLE  ON  YOUR  SYSTEM. 

Included  Commons: 
no  user  defined  commons 

Entry  points:  MERFI 


Variables: 


R*4 

A 

R*4 

A1 

R*4 

A2 

R*4 

A3 

R*4 

B 

R*4 

BO 

R*4 

B1 

R*4 

B2 

R*4 

B3 

R*4 

CO 

R*4 

Cl 

R*4 

C2 

R*4 

C3 

R*4 

00 

R*4 

01 

R*4 

02 

R*4 

EO 

R*4 

El 

R*4 

E2 

R*4 

E3 

R*4 

F 

R*4 

FO 

R*4 

FI 

R*4 

F2 

R*4 

GO 

R*4 

G1 

R>»4 

G2 

RM 

G3 

R*4 

HO 

R*4 

HI 

R*4 

H2 

1*4 

IER 

R*4 

P 

R*4 

RINFM 

R*4 

SO 

R*4 

SIGMA 

R*4 

SN 

R*4 

W 

R*4 

W1 

R*4 

X 

R*4 

Y 

R*4 

Z 

R*4 

Z2 

Subroutines  and  Functions  Referenced: 

R*4  MTHSALOG  R*4  MTH$SIGN  R*4  MTHSSQRT 
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Module:  NOISY 

CALL:  SUBROUTINE  NOISY  (KJ,XLA,CEG,ANOS) 

Call  Arguments: 

KJ  integer  flag  to  select  variable  (via  array  index) 

XLA  geographic  latitude 

CEG  geographic  east  longitude 

**  ANOS  return  parameter  (noise,  etc.) 

**  return  value 

Purpose:  Calculates  1  MHz  atmospheric  noise  levels  from  numerical  maps 

Included  Commons:  Size  (4  byte  words) 

A1  (  14912) 

Entry  points:  NOISY 


Variables: 


R*4 

ALF 

R*4 

ANOS 

R*4 

BET 

R*4 

Cl 

R*4 

CEG 

R*4 

CX 

1*4 

J 

1*4 

K 

1*4 

KJ 

1*4 

LH 

1*4 

LN 

R*4 

Q 

R'-4 

R*4 

R 

XLA 

R*4 

SI 

R*4 

SS 

R*4 

TX 

Arrays: 

R*4  ABP  (2,  8) 

R*4  DP  (29,  16,  8) 

R*4  SX  (15) 

R*4  ZZ  (29) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$COS  R*4  MTH$SIN 
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Module:  OPLOT 


CALL;  SUBROUTINE  OPLOT 

Purpose:  Plots  the  oblique  ionograms  for  all  frequencies  and  power  levels. 


Included  Conunons:  Size  (4  byte  words) 


APLT 

( 

36) 

INP 

( 

72) 

ION 

( 

436) 

LUNITS 

( 

48) 

RADR 

( 

12) 

xxxx 

( 

46900) 

RAD2AVA 

( 

40) 

TIME 

( 

23) 

Entry 

points:  OPLOT 

Variables: 

R*4 

AZMTH 

R*4 

BANDW 

R*4 

BMONS 

R*4 

BWIDTH 

CHAR 

DATETIME 

R*4 

ECLUT 

R*4 

FCLUT 

R*4 

FREQ 

R*4 

GMT 

1*4 

I 

1*4 

lAZMTH 

1*4 

IBCL 

1*4 

lEND 

1*4 

lEXD 

1*4 

IF 

1*4 

IFX 

1*4 

IGND 

1*4 

INOISE 

CHAR 

I  PLUS 

1*4 

IR 

1*4 

IRANGE 

CHAR 

IRL 

CHAR 

IRS 

CHAR 

IRTICK 

1*4 

I  SNR 

1*4 

ISSN 

1*4 

I  STEP 

1*4 

IT 

1*4 

ITD 

1*4 

ITIME 

CHAR 

ITL 

CHAR 

ITS 

1*4 

IX 

1*4 

IXX 

1*4 

J 

1*4 

JDIM 

1*4 

JFB 

1*4 

JFE 

1*4 

JL 

1*4 

K 

1*4 

K3 

1*4 

KFAC 

1*4 

KMAX 

CHAR 

LABEL 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCAN 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

CHAR 

NGR 

CHAR 

NGT 

1*4 

NLAT 

1*4 

NLON 

1*4 

NRSCANS 

CHAR 

NSR 

CHAR 

NST 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

RANGE 

R*4 

RXNF 

R*4 

SCVLM 

R*4 

SSN 

R*4 

TD 

R*4 

TLAT 

R*4 

TLON 

R*4 

TXLAT 

R*4 

TXLON 

R*4 

WT 

R*4 

X2 

R*4 

y2 

Arrays: 

R*4 

AFREQ 

(35) 

R*4 

ALOOK 

(6) 

R*4 

ANOISE 

(35) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

FEC 

(10) 

R*4 

FREL 

(15) 

R*4 

HE 

(10) 

R*4 

HFl 

(10) 

R*4 

HF2 

(10) 

CHAR 

lOLINE 

(35) 

1*4 

lOSNR 

(333 

CHAR 

LABELl 

(2) 

1*4 

NNLAT 

(2) 

1*4 

NNLON 

(2) 

R*4 

YME 

(10) 

R*4 

YMFl 

(10) 

R*4 

YMF2 

(10) 

OPLOT 


(cont. ) 


Subroutines  and 
R*4  MTH$AMOD 


Functions  Referenced: 

REA992 


READ99 
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Module:  PEIR 


CALL:  FUNCTION  PEIR ( PHI, TMC,UTC, CHI, SOL, XKP,UT) 

Call  Arguments: 

PHI  corrected  geomagnetic  latitude  in  degrees 

TMC  corrected  geomagnetic  time  in  hours 

UTC  local  time  in  hours 

CHI  solar  zenith  distance  in  degrees 

SOL  solar  longitude  in  radians,  measured  from  vernal  equinox 

XKP  planetary  kp  index  (input  as  'kp') 

UT  coordinated  universal  time 

**  return  value 

Purpose:  Determines  the  probability  of  E-layer  clutter  (and  F-layer  clutter 

with  an  entry  point  to  PFIR) . 

Included  Commons:  Size  (4  byte  words) 

PFE  (  24) 

RAD2AVA  (  40) 

Entry  points:  PEIR,  PFIR 


Variables: 


R*4 

A 

R*4 

B 

R*4 

BANDW 

R*4 

CHI 

R*4 

CLUT 

R*4 

D1 

R*4 

D2 

R*4 

D2R 

R*4 

El 

R*4 

E2 

R*4 

E3 

R*4 

ECLUT 

R*4 

FCLUT 

R*4 

FLAT 

R*4 

GY 

R*4 

H2R 

1*4 

IBCL 

1*4 

KFAC 

1*4 

LSCAN 

1*4 

NRSCANS 

R*4 

PI 

R*4 

P2 

R*4 

P3 

R*4 

P4 

R*4 

PS 

R*4 

P6 

R*4 

PHO 

R*4 

PHI 

R*4 

PI 

R*4 

PMC 

R*4 

R2D 

R*4 

RXNF 

R*4 

S 

R*4 

SCVLM 

R*4 

SLN 

R*4 

SOL 

R*4 

SS 

R*4 

TMC 

R*4 

TX 

R*4 

TY 

R*4 

UT 

R*4 

UTC 

R*4 

WT 

R*4 

XKP 

Subroutines  and 

Functions 

Referenced: 

R*4 

MTHSALOGIO 

R*4 

MTHSASIN 

R*4 

MTHSCOS 

R*4  MTH$EX 
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Module:  pincly 

CALL:  real  function  pincly (posl,  pos2,  pos3,  toa,  brt) 

Call  Arguments: 

POSl  latitude,  radians. 

POS2  west  longitude,  radians. 

POS3  altitude,  meters. 

TOA  Take-off  angle,  radians. 

BRT  bearing,  radians. 

**  return  values 

Purpose:  Determines  overall  magnetic  field  by  summation 

Included  Commons:  Size  (4  byte  words) 

PIR  (  12) 

RAD2AVA  (  48 ) 

Entry  points:  PINCLY 

Variables: 


R*4 

ALPHA 

R*4 

BANDW 

R*4 

BETA 

R*4 

BRT 

R*4 

OIS 

R*4 

D2R 

R*4 

DEG 

R*4 

DIP 

R*4 

ECLUT 

R*4 

EPSLON 

R*4 

FCLUT 

R*4 

FIELD  MAG 

R*4 

FLD  PRODUC 

R*4 

HORIZ  MAG 

1*4 

IBCL 

1*4 

KFAC 

1*4 

KL 

1*4 

LSCAN 

1*4 

NRSCANS 

R*4 

ORTAP 

R*4 

ORTMAG 

R*4 

PI 

R*4 

PI2 

R*4 

PINC3 

Arrays : 

R*4 

POS 

(3) 

R*4 

RAY 

(3) 

R*4 

UNE 

(3) 

Subroutines  and 

Functions 

Referenced: 

MAGFIN 

R*4 

MTH$ACOS 

R*4 

MTH$SIN 

R*4 

MTH$SIND 

R*4  MTH$ACOSD  R*4  MTH$AS 

R*4  MTH$SQRT 


Module:  POLARC 

CALL;  SUBROUTINE  POLARC  (II) 

Call  Arguments: 

II  Sample  area  indicator 

**  return  value 

Purpose:  Determines  the  polar  corrections  for  auroral  oval  and  trough 

calculations  when  requested  in  the  input  file 


Included  Commons:  Size  (4  byte  words) 


All 

( 

264) 

DAT 

( 

192) 

GEOG 

( 

388) 

INP 

{ 

92) 

OV7U, 

( 

8) 

WABE 

( 

96) 

Entry  points:  POLARC 

Variables: 

R*4 

ALAT 

R*4 

ALONG 

R*4 

AZMTH 

R*4 

CGLAT 

R*4 

CGLONG 

R»4 

CKC 

R*4 

COND 

R*4 

CONS 

R*4 

CSDY2 

R*4 

CZ 

R*4 

DEG 

R*4 

DT 

R*4 

DXl 

R*4 

DYl 

R*4 

EARTHR 

R*4 

EPR 

R*4 

GHRMT 

R*4 

GMLAT 

R*4 

GMLON 

R*4 

GMT 

R*4 

GOUT 

R*4 

HANG 

1*4 

lEXD 

1*4 

IGND 

1*4 

11 

1*4 

I  SNR 

1*4 

JDAY 

1*4 

KUT 

1*4 

HAN 

1*4 

MDAY 

1*4 

METH 

1*4 

METHOD 

1*4 

MON 

1*4 

HONS 

1*4 

MYR 

1*4 

NGP 

R*4 

OTH 

R*4 

PHIA 

R*4 

PHIAM 

R*4 

PHIAN 

R*4 

PI 

R*4 

PID2 

R*4 

PIT2 

R*4 

PKAVG 

R*4 

RAO 

R*4 

SSN 

R*4 

T1 

R*4 

TAR 

R*4 

TCT 

R*4 

TIMEIT 

R*4 

TPM 

R*4 

TT 

R*4 

XI 

R*4 

XG 

R*4 

XKP 

R*4 

XN 

Arrays : 

R*4 

ABIY 

(10) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

CD 

(24) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

DUM 

(4) 

R*4 

DUMM 

(24) 

Subroutines  and  Functions  Referenced: 

R*4  CGMTIM  R*4  MTHSCOS  R*4  MTH$EXP 
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Module:  PRESET 


CALL;  SUBROUTINE  PRESET 


Purpose: 

-  Sets 

predefined 

program 

control 

variables 

Included 

Conunons: 

Size  (4 

byte  words) 

APLT 

( 

60) 

APRAM 

( 

4) 

DAT 

( 

192) 

GEOG 

( 

336) 

HOP 

{ 

4) 

INP 

( 

92) 

ION 

{ 

436) 

lONINP 

( 

480) 

LUNITS 

< 

48) 

OVAL 

( 

8) 

RADR 

{ 

24) 

RAD2AVA 

( 

40) 

Entry  points:  PRESET 

Variables: 

R*4 

AZMTH 

R*4 

Bi^^IDW 

R*4 

BWIDTH 

R*4 

D2R 

R*4 

DELING 

R*4 

EARTHR 

R*4 

ECLUT 

R*4 

FCLUT 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GMLAT 

R*4 

GMLON 

R*4 

GKT 

R*4 

HANG 

1*4 

I 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

IBCL 

1*4 

lEXD 

1*4 

IFR 

1*4 

IPX 

1*4 

IGND 

1*4 

IMONS 

1*4 

I  PWUS 

1*4 

IQRT 

1*4 

ISNR 

1*4 

ISSN 

1*4 

IT 

1*4 

JDIM 

1*4 

JL 

1*4 

K3 

1*4 

KFAC 

1*4 

KMAX 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIMHOP 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCAN 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

MYR 

1*4 

NRSCANS 

R*4 

OTH 

R*4 

PI 

R*4 

PID2 

R*4 

PIT2 

R*4 

PKAVG 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

PWUS 

R*4 

R2D 

R*4 

RXNF 

R*4 

SCVLM 

R*4 

SIZE 

R*4 

SNOISE 

R*4 

SSL 

R*4 

TAR 

R*4 

TIKEIT 

R*4 

TLTFAC 

R*4 

VSTEER 

R*4 

WT 

B*4 

XI 

R*4 

X2 

R*4 

XKP 

R*4 

yi 

R*4 

Y2 

Arrays ; 


R*4 

ABIY 

(10) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

DUM 

(4) 

R*4 

DUMM 

(24) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

FEC 

(10) 

R*4 

FESINP 

(30) 

R*4 

FFAK 

(2) 

R*4 

FI  INP 

(30) 

R*4 

FREL 

(15) 

R*4 

GLAT 

(10) 
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( cont 


PRESET 


R*4 

GY 

(10) 

R*4 

HE 

(10) 

R*4 

HFl 

(10) 

R*4 

HF2 

(10) 

R*4 

HIINP 

(30) 

R*4 

PSC 

(4) 

R*4 

RAT 

(10) 

R*4 

RD 

(10) 

R*4 

YIINP 

(30) 

R*4 

YME 

(10) 

R*4 

YMFl 

(10) 

R*4 

YMF2 

(10) 

Subroutines  and  Functions  Referenced: 
R'»4  MTHSALOGIO 
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Module:  RADAR 


CALL:  SUBROUTINE  RADAR  ( lESFLG, lomuf ) 

Call  Arguments: 

lESFLG  use (+) /don't  use(-)  E, 

LOMUF  integer  flag  to  indicate  propagation  over-the-MUF  has  occurred 

**  return  value 

Purpose:  Takes  the  oblique  information  from  BAKSCT  and  evaluates  the  system 

parameters  and  losses,  and  calculates  sporadic-E  modes  and  losses. 
Backscatter  control  routine.  Searches  the  oblique  frequency  tables 
for  the  reflectrix  with  constant  frequency.  If  over  the  MUF  these 
losses  are  calculated.  Then  the  backscatter  returns  are  computed. 


Included  Commons: 
APLT 
APRAM 
A2 
DAT 
FOLO 
HGH 
HOP 
INP 
ION 
MIMSY 
PLT 
RADR 
CPTEST 

Entry  points:  RADAR 


Size  (4  byte  words) 

{  60) 

(  4) 

(  432000) 

(  192) 

(  5040) 

(  28800) 

(  4) 

(  92) 

(  368) 

(  2520) 

(  3640) 

(  16) 

(  120) 


Variables: 


R*4 

AK 

R*4 

AZMTH 

R*4 

BK 

R*4 

BHIDTH 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

DELINC 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GLG 

R*4 

GMT 

R*4 

GT 

R*4 

HANG 

1*4 

I 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

IDX  F2  CRI 

1*4 

IDX  NOW 

CR  1*4 

lESFLG 

1*4 

lEXD 

1*4 

IFR 

1*4 

IGND 

1*4 

IMONS 

1*4 

IPWUS 

1*4 

IQRT 

1*4 

ISNR 

1*4 

ISSN 

1*4 

IT 

1*4 

J 

1*4 

JOIN 

1*4 

JEND 

1*4 

JFV 

1*4 

JK 

1*4 

JX 

1*4 

K 

1*4 

KMAX 

1*4 

KND 

1*4 

LIMHOP 

1*4 

LOMUF 

1*4 

M 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

R*4 

MSLOP 

1*4 

NBLANK 

R*4 

OTH 

R*4 

PITW 

R*4 

PKAVG 

R*4 

PWID 

R*4 

PWR 

R*4 

RCSDEL 

R*4 

RZ 

R*4 

SECPHE 

R*4 

SIPHE 

R*4 

SNOISE 

R*4 

SSN 

R*4 

TAR 

R*4 

TIMEIT 

R*4 

VSTEER 

R*4 

XI 

R*4 

X2 

R*4 

Yl 

R*4 

Y2 

R*4 

ZWR 

Arrays: 

R*4 

AFAC 

(240 

,  10) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

AMP 

(8, 

45) 

R*4 

DELH 

(10, 

45) 

R*4 

DELI 

(10, 

45) 

R*4 

FI 

(10, 

3) 
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RADAR 

( cont . ) 

R*4 

FOB 

(240,  45,  1 

R*4 

HI 

(10,  3) 

R*4 

HPRIM 

(240,  10) 

R*4 

HTRUE 

(240,  10) 

1*4 

IDIST 

(8,  45) 

1*4 

IDLAY 

(8,  45) 

1*4 

ILAYIO 

(45,  10) 

1*4 

ILAYER 

(45,  4) 

1*4 

JNUM 

(10) 

1*4 

JNUHM 

(3,  10) 

1*4 

JS 

(4,  45) 

1*4 

LAYTYP 

(4) 

R*4 

SUN 

(2,  12) 

R*4 

YI 

(10,  3) 

Subroutines  and 

Functions  Referenced: 

ANTOO 

ANTOl 

ANT02 

ANT03 

ANT06 

ANT07 

ANT08 

ANT09 

ANT12 

ANT  13 

ANT  14 

CUSPIN 

R*4 

MTH$SQRT 

SELION 

SETION 

SETPLT 
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Module:  RADARC 


CALL:  PRCX^RAM  RADARC 

Purpose:  Main  program  which  controls  all  functions,  sets  date  and 

sets  an  error  function  to  avoid  unwanted  warnings  during 


Included 

Commons : 

byte  words 

) 

A1 

4912) 

A2 

.32000) 

A3 

{ 

23712) 

All 

( 

264) 

ALLAMP 

{ 

10656) 

ANT 

( 

372) 

APLT 

( 

60) 

APRAM 

( 

4) 

CPTEST 

( 

3000) 

CPTRP 

{ 

28) 

CUSP 

{ 

640) 

DAT 

( 

192) 

DUD 

( 

1248) 

ES 

( 

160) 

ESTAB 

( 

3996) 

POLO 

{ 

7920) 

PONE 

( 

480) 

FRQCHK 

{ 

8) 

GEOG 

( 

388) 

HGH 

( 

28800) 

ILOS 

( 

2880) 

INP 

( 

92) 

ION 

{ 

436) 

LUNITS 

( 

48) 

OVAL 

( 

8) 

PLT 

{ 

5080) 

PLTAB 

( 

11992) 

RADR 

( 

24) 

SLS 

( 

88) 

TIME 

( 

23) 

TTSIZE 

( 

180) 

HMAPS 

( 

1824) 

xxxx 

( 

46900) 

Entry  points:  RADARC 

Variables: 

R*4 

R*4 

ASKP 

R*4 

AZMTH 

R*4 

BWID 

R*4 

CKC 

R*4 

COND 

CHAR 

DATETIME 

R*4 

R*4 

DELINC 

R*4 

EARTHR 

R*4 

EPR 

R*4 

R*4 

FREQ 

R*4 

GAZM 

R*4 

GMLAT 

R*4 

R*4 

GMT 

R*4 

HANG 

1*4 

lANT 

1*4 

1*4 

ICFR 

1*4 

I  CNR 

1*4 

ICP 

1*4 

1*4 

lERRNO 

1*4 

lEXD 

1*4 

I  PR 

1*4 

1*4 

IGND 

1*4 

IMONS 

1*4 

IPWUS 

1*4 

1*4 

I  SNR 

1*4 

ISSN 

1*4 

IT 

1*4 

1*4 

JFR 

1*4 

JL 

1*4 

JNR 

1*4 

1*4 

KMAX 

1*4 

L 

1*4 

LAMT 

1*4 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

1*2 

MAXERR 

1*4 

MAXPRQ 

1*4 

MCP 

1*4 

1*4 

METHOD 

1*4 

MONS 

1*4 

MYR 

L*4 

time,  and 
runtime. 


BWIDTH 

DEG 

FNOISE 

GMLON 

lAZMTH 

IDUMM 

IPX 

IQRT 

JDIM 

K3 

LANT 

LMAP 

LOUT3 

MAN 

METH 

OCONTN 
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RADARC  ( cont . ) 


L*4 

OCOUNT 

L*4  OLCX; 

R*4 

OTH 

L*4 

OTYPE 

R*4 

PI 

R*4  PID2 

R*4 

PIT2 

R*4 

PKAVG 

R*4 

PREFRQ 

R*4  PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

RAD 

R*4  SIGBAK 

R*4 

SKPSIG 

R*4 

SNOISE 

R*4 

SSN 

R*4  TAR 

R*4 

TIMEIT 

R*4 

VSTEER 

R*4 

XI 

R*4  X2 

R*4 

XKP 

R*4 

Y1 

R*4 

Y2 

Arrays : 

R*4 

AB 

(76,  6) 

R*4 

ABIY 

(10) 

R*4 

ABP 

(2,  8) 

R*4 

ACHI 

(2,  12) 

R*4 

ADV 

(4,  45) 

R*4 

AFAC 

(240,  10) 

R*4 

AFREQ 

(35) 

R*4 

AGAIN 

(45) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

AMP 

(8,  45) 

R*4 

AMPCP 

(4,  4) 

Subroutines  and 

Functions  Referenced: 

DATIME 

ERRSET 

lONGEN 

R*8  MTH$DA 
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Module:  REA992 


CALL:  SUBROUTINE  REA992 

Purpose:  Reads  FOR099.dat  scratch  file  and  generates  the  ALLMODES.DAT  output. 

Included  Conunons:  Size  (4  byte  words) 

LUNITS  (  48) 

TIME  (  23) 

Entry  points:  REA992 


Variables: 


R*4 

ANGMIN 

R*4 

AZMTH 

R*4 

BINVAL 

R*4 

BINVALC 

R*4 

BMONS 

CHAR 

DATETIME 

1*4 

ENVl 

1*4 

ENV2 

1*4 

I 

1*4 

IBIN 

1*4 

IBINS 

1*4 

IDATAIN 

1*4 

IREC 

1*4 

ISSN 

1*4 

IT 

1*4 

ITEM 

1*4 

J 

1*4 

JBEG 

1*4 

JBIN 

1*4 

JEND 

1*4 

JFLAGG 

1*4 

JOUT 

1*4 

KBIN 

1*4 

KBINC 

1*4 

KREC 

1*4 

L 

1*4 

LAMT 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LREC 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

NLAT 

1*4 

NLON 

R*4 

OTH 

R*4 

PKAVG 

R*4 

PWID 

R*4 

PWR 

R*4 

TARS I Z 

R*4 

TIMEIT 

R*4 

TIMLOG 

R*4 

TXLAT 

R*4 

TXLON 

R*4 

WSIZE 

R*4 

WSTART 

R*4 

WSTEP 

Arrays : 

R*4  DATA  (5000,  19) 

R*4  DATAIN  (19) 

R*4  ENVELP  (201,  19) 

R*4  FREQ  (5000) 

1*4  IDATA  (5000) 

1*4  lENVLP  (201) 

1*4  INDEX  (5000) 

R*4  RANGE  (5000) 

R*4  SNR  (5000) 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  FOR$OPEN 
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Module:  READ99 


CALL:  SUBROUTINE  READ99 


Purpose:  Reads  the  FOR099.dat  scratch  file  and  generates  the  fortran  unit  10 

combined  raysets  table. 


Included  Commons: 
LUNITS 
TIME 

Entry  points:  READ99 


Size  (4  byte  words) 
(  48) 

(  23) 


Variables: 


R*4 

ANGMIN 

R*4 

AZMTH 

R*4 

BMONS 

CHAR 

DATETIME 

1*4 

I 

1*4 

IHITE 

1*4 

IMAX 

1*4 

IMIN 

1*4 

INDEXX 

1*4 

I  OUT 

1*4 

IREC 

1*4 

IRNGE 

1*4 

I  SAMP 

1*4 

I  SAVE 

1*4 

ISSN 

1*4 

IT 

1*4 

ITEM 

1*4 

J 

1*4 

JBEG 

1*4 

JEND 

1*4 

JEND2 

1*4 

JFLAGG 

1*4 

JMIN 

1*4 

JOUT 

1*4 

KREC 

1*4 

L 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LREC 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

MINFLG 

1*4 

NLAT 

1*4 

NLON 

R*4 

OTH 

R*4 

PKAVG 

R*4 

PWID 

R*4 

PWR 

R*4 

RMAX 

R*4 

RMIN 

R*4 

SNRMAX 

R*4 

TARS I Z 

R*4 

TIMEIT 

R*4 

TIMLOG 

R*4 

TXLAT 

R*4 

TXLON 

R*4 

WMAX 

R*4 

WMIN 

R*4 

WSIZE 

R*4 

WSTART 

R*4 

WSTEP 

Arrays: 


R*4 

DATA 

(5000, 

19) 

R*4 

DATA2 

(5000, 

19) 

R*4 

DATAIN 

(19) 

R*4 

FREQ 

(5000) 

1*4 

I  DATA 

(5000, 

2) 

1*4 

IDATA2 

(5000, 

2) 

1*4 

IDATAIN 

(2) 

1*4 

INDEX 

(5000) 

1*4 

NHOPl 

(5000) 

1*4 

NHOP2 

(5000) 

R*4 

RANGE 

(5000) 

R*4 

SNR 

(5000) 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  SORT 
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Module:  READIN 


CALL:  SUBROUTINE  READIN ( ITSTR,  ITSTP,  ITSKP) 

Call  Arguments 

ITSTR  start  time  for  time  loop,  UT 

ITSTP  stop  time  for  time  loop,  UT 

ITSKP  skip  time  for  time  loop,  UT 

**  return  value 

Purpose:  Reads  the  program  control  (input)  variables  from  user  input  file 

XXXXX.INP 


Included  Commons:  Si?,?  (4  byte  words) 


APLT 

( 

60) 

GEOG 

( 

336) 

HOP 

( 

4) 

INP 

{ 

92) 

ION 

( 

436) 

lONINP 

( 

480) 

LUNITS 

( 

48) 

OVAL 

( 

8) 

RADR 

( 

24) 

RAD2AVA 

( 

48) 

Entry 

points:  READIN 

Variables: 

R*4 

AZCOUNT 

R*4 

A2MTH 

R*4 

BANDW 

CHAR 

BLANK 

R*4 

BMIDTH 

R*4 

DELINC 

R*4 

ECLUT 

R*4 

FCLUT 

R*4 

FLUX 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GMT 

R*4 

HANG 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

IBCL 

1*4 

lEXD 

1*4 

IFLAG 

1*4 

IFR 

1*4 

IFX 

1*4 

IGND 

1*4 

II 

1*4 

IMONS 

1*4 

INDEX 

1*4 

lOSTAT 

1*4 

IPWUS 

1*4 

IQRT 

1*4 

I  SNR 

1*4 

ISSN 

1*4 

IT 

1*4 

ITSKP 

1*4 

ITSTP 

1*4 

ITSTR 

1*4 

J 

1*4 

JDIM 

1*4 

JL 

1*4 

K 

1*4 

K3 

1*4 

K3I 

R*4 

KFAC 

1*4 

KMAX 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIMHOP 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCAN 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

M 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

CHAR 

MODIFIER 

1*4 

MONS 

1*4 

MYR 

1*4 

NRSCANS 

R*4 

ORTAP 

R*4 

ORTHAG 

R*4 

OTH 

R*4 

PKAVG 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

PWUS 

CHAR 

RECORD 

R*4 

RXNF 

R*4 

SCVLM 

R*4 

SNOISE 

R*4 

SSN 

CHAR 

TAB 

R*4 

TAR 

R*4 

TIMEIT 

R*4 

VALUE 

CHAR 

VARNAME 

R*4 

WT 

R*4 

XI 

R*4 

X2 

R*4 

XKP 

R*4 

Y1 

R*4 

Y2 

Arrays: 

R*4 

ABiy 

(10) 

R*4 

ALOOK 

(6) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

FEC 

(10) 
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READ IN  (cont.) 


R*4 

FES INF 

(10, 

3) 

R*4 

FFAK 

(2) 

R*4 

FI  INF 

(10, 

3) 

R*4 

FREL 

(15) 

R*4 

GLAT 

(10) 

R*4 

GY 

(10) 

R*4 

HE 

(10) 

R*4 

HFl 

(10) 

R*4 

HF2 

(10) 

R*4 

HIINP 

(10, 

3) 

R*4 

PSC 

(4) 

R*4 

RAT 

(10) 

R*4 

RD 

(10) 

CHAR 

WORD 

(12) 

R*4 

YIINP 

(10, 

3) 

R*4 

YME 

(10) 

R*4 

YMFl 

(10) 

Subroutines  and  Functions  Referenced: 

CASE  FOR$CLOSE  FOR$OPEN  R*4  MTH$AL 
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Module:  REDMAP 


Call  Arguments: 

LOCK 

NEWNOISE  flag  to  indicate  use (->-) /don't  use(-)  roost  recent  CCIR  noise 
**  return  value 

CALL:  SUBROUTINE  REDMAP  (LOCK, NEWNOISE) 

Purpose:  Reads  ionospheric  data  files  for  the: 

a.  sporadic  E-layer 

b.  F2-layer 

c.  E-layer 

d.  CCIR  atmospheric  noise  files 


Included  Commons:  Size  (4  byte  words) 


A1 

( 

14912) 

A2 

( 

31008) 

A3 

( 

23712) 

All 

( 

264) 

DUD 

( 

1248) 

INP 

( 

68) 

LUNITS 

( 

48) 

Entry  points:  REDMAP 

Variables: 

R*4 

AZMTH 

CHAR  DFILE 

R*4 

GMT 

1*4 

I 

1*4 

ICCP 

1*4  lEXD 

CHAR 

IFILE 

1*4 

IMON 

1*4 

J 

1*4  K 

1*4 

L 

1*4 

LANT 

1*4 

LCON 

1*4  LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4  LOCK 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4  LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

MAN 

1*4  METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

NEWNOISE 

R*4  SSN 

R*4 

XI 

R*4 

yi 

Arrays : 

R*4 

ABP 

(2,  8) 

R*4 

ABPI 

(2,  2) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

D 

(13,  76,  6) 

R*4 

DABP 

(2,  6) 

R*4 

DMON 

(12) 

Subroutines  and  Functions 
FOR $ CLOSE 


Referenced: 

FOR$OPEN 
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Module:  SELDST 


CALL:  SUBROUTINE  SELDST (DEL, HP,  GDR, DELAY) 
Call  Arguments: 

DEL  Take-off  angle,  degrees. 

HP  virtual  height,  km 

GDR  great  circle  distance,  km 

DELAY  slant  time  delay,  ms 

**  return  value 


Purpose:  This  routine  calculates  path  geometry  for  given  ionospheric 

properties. 


Included  Commons: 
DAT 


Size  (4  byte  words) 
(  192) 


Entry  points:  SELDST 


Variables: 


R*4 

AK 

R*4 

BK 

R*4 

CK 

R*4 

DEL 

R*4 

EEK 

R*4 

EK 

R*4 

GT 

R*4 

HP 

R*4 

RAY 

R*4 

RCSDEL 

R*4 

C180 

R*4 

C360 

R*4 

DELAY 

R*4 

DK 

R*4 

GDR 

R*4 

GLG 

R*4 

PHE 

R*4 

PITW 

R»4 

RZ 

R*4 

SI  PHE 

Arrays: 

R*4  AMON  (12) 

R*4  SUN  (2,  12) 
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Module:  SELION 


CALL:  SUBROUTINE  SELION 

Purpose:  Selects  the  closest  control  area  to  the  ionospheric  return.  The 

ionospheric  description  at  this  control  point  is  selected  to 
represent  the  spherically  symmetric  model  used  over  the  hop, which 
permits  quick  closed-form  ray  path  calculations. 


Included  Commons:  Size  (4  byte  words) 


APLT 

( 

60) 

CPTEST 

( 

3000) 

DAT 

( 

192) 

FOLO 

( 

7920) 

GEOG 

( 

388) 

HGH 

( 

28800) 

HOP 

( 

4) 

ION 

( 

368) 

MIMSy 

( 

2520) 

PLT 

( 

3640) 

RADR 

( 

16) 

Entry 

points: 

SELION 

Variables: 

R*4 

ADEL 

R*4 

AK 

R*4 

BK 

R*4 

BMONS 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

CKC 

R*4 

COND 

R*4 

DEL 

R*4 

DELAY 

R*4 

DELING 

R*4 

DINC 

R*4 

DK 

R*4 

DWR 

R*4 

EEK 

R*4 

EK 

R*4 

EPR 

R*4 

FC 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

FV 

R*4 

GDR 

R*4 

GLG 

R*4 

GT 

R*4 

HP 

R*4 

HT 

R*4 

HWIDTH 

1*4 

I 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

IFR 

1*4 

IFV 

1*4 

IPWUS 

1*4 

IQRT 

1*4 

ISSN 

1*4 

IT 

1*4 

J 

1*4 

J1 

1*4 

J2 

1*4 

JDIN 

1*4 

JJ 

1*4 

JO 

1*4 

K3 

1*4 

KMAX 

1*4 

LIMHOP 

R*4 

PITW 

R*4 

PWID 

R*4 

PWR 

R*4 

RNGDIF 

R*4 

RZ 

R*4 

SNOISE 

R*4 

SOFAR 

R*4 

SPH 

R*4 

X2 

R*4 

XFSQ 

R*4 

XHPTR 

R*4 

XMUT 

R*4 

y2 

Arrays: 

R*4 

ABIY 

(10) 

R*4 

AFAC 

(240 

,  10) 

R*4 

AMON 

(12) 

R*4 

AMP 

(8, 

45) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

CNR 

(8, 

45) 

R*4 

DELH 

(10, 

45) 

R*4 

DELI 

(10, 

45) 

R*4 

FI 

(10, 

3) 

R*4 

GDIST 

(  4  F 

45) 

R*4 

GLAT 

(10) 

R*4 

GMDIP 

(10) 

R*4 

GY 

(10) 

R*4 

HI 

(10, 

3) 

R*4 

HPP 

(4, 

45) 

R*4 

HPRIM 

(240 

,  10) 

R*4 

HTRUE 

(240 

,  10) 
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SELION 


( cont . ) 


1*4 

IDIST 

(8, 

1*4 

IDLAY 

(8, 

1*4 

ILAYl 

(45) 

1*4 

ILAYIO 

(45, 

1*4 

ILAY2 

(45) 

1*4 

ILAY3 

(45) 

1*4 

ILAY4 

(45) 

1*4 

JNUM 

(10) 

1*4 

JNUMM 

(3, 

1*4 

JS 

(4, 

R*4 

PSC 

(4) 

R*4 

RAT 

(10) 

R*4 

RD 

(10) 

R*4 

SDELAY 

(4, 

R*4 

SNR 

(8, 

R*4 

SUN 

(2, 

R*4 

TLOSS 

(4, 

R*4 

YI 

(10, 

45) 

45) 

10) 


10) 

45) 


45) 

45) 

12) 

45) 

3) 


Subroutines  and  Functions  Referenced: 


SELDST 
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Module:  SETCP 

CALL:  SUBROUTINE  SETCP 

Purpose:  Determines  auroral  losses  for  cusp  region  from  table  look-up.  Finds 


signal-to-noise 

values 

for  cusp 

region 

Included 

Commons : 

Size 

(4  byte 

words) 

ANT 

( 

372) 

APLT 

( 

56) 

CPTRP 

( 

28) 

CUSP 

( 

1600) 

DAT 

( 

192) 

INP 

{ 

72) 

LUNITS 

( 

48) 

MIMSY 

( 

2520) 

RADR 

( 

24) 

Entry  points:  SETCP 
Variables: 


R*4 

ADEL 

R*4 

AK 

R*4 

AZMTH 

R*4 

BK 

R*4 

BWIDTH 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

DEL 

R*4 

DELI 

R*4 

DELINC 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GAIN 

R*4 

GAZM 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

R*4 

HWIDTH 

1*4 

I 

1*4 

lANT 

1*4 

ICFR 

1*4 

ICNR 

1*4 

ICP 

1*4 

IDEL 

1*4 

lEXD 

1*4 

IFR 

1*4 

IGAIN 

1*4 

IGND 

1*4 

IPWUS 

1*4 

I  SNR 

1*4 

J 

1*4 

JFR 

1*4 

JNR 

1*4 

KMAX 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LHOP 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISB 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

MAN 

1*4 

MCP 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

R*4 

PI2 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

RZ 

R*4 

SIGBAK 

R*4 

SNOISE 

R*4 

SSN 

R*4 

XI 

R*4 

X2 

R*4 

Y1 

R*4 

Y2 

Arrays : 


R*4 

AGAIN 

(45) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

AMPCP 

(4, 
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Module:  SETION 


CALL:  SUBROUTINE  SETION 

Purpose:  Determines  the  system  losses.  It  calls  SIGNT,  a  routine  that  permits 

a  desired  sea  or  land  backscatter  cross-section  to  be  used. 
Adjustments  have  been  made  to  this  routine  to  determine  losses  over 
the  MUF. 


Included  Commons: 

Size 

(4  byte  words) 

ANT 

( 

368) 

APLT 

{ 

56) 

DAT 

( 

192) 

ES 

( 

120) 

FOLO 

( 

5040) 

GEOG 

( 

280) 

HGH 

( 

28800) 

HOP 

( 

4) 

I  LOS 

( 

2880) 

INP 

( 

68) 

ION 

( 

436) 

LUNITS 

( 

48) 

MIMSY 

( 

2520) 

PLT 

( 

5080) 

RADR 

( 

24) 

Entry  points:  SETION 

Variables: 

R*4  ADL 

R*4 

AK 

R*4 

AREF 

R*4 

AZMTH 

R*4  BK 

R*4 

BWIDTH 

R*4 

C180 

R*4 

C360 

R*4  CK 

R*4 

COSP 

R*4 

DEL 

R*4 

DELINC 

R*4  DK 

R*4 

EEK 

R*4 

EK 

R*4 

ESD 

R*4  FC 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

FV 

R*4  Fvi 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

R*4  HT 

R*4 

HWIDTH 

1*4 

I 

1*4 

lANT 

1*4  lAZMTH 

1*4 

ICCP 

1*4 

lEXD 

1*4 

IFR 

Arrays: 


R*4 

ABIY 

(10) 

R*4 

AC 

(10) 

R*4 

ADV 

(4,  45) 

R*4 

AFAC 

(240,  10 

R*4 

AGAIN 

(45) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

AMP 

(8,  45) 

R*4 

ANDV 

(4,  45) 

R*4 

AOF 

(4,  45) 

R*4 

ARF 

(4,  45) 

R*4 

BC 

(10) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

DELH 

(10,  45) 

R*4 

DELI 

(10,  45) 

R*4 

FFAK 

(2) 

R*4 

FI 

(10,  3) 

R*4 

FOES 

(10,  3) 

R*4 

FREL 

(15) 

R*4 

GLAT 

(10) 
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SETION 


( cont . ) 


R*4 

GRLOS 

(45) 

R*4 

GY 

(10) 

R*4 

HE 

(10) 

R*4 

HFl 

(10) 

R*4 

HF2 

(10) 

R*4 

HPRIM 

(240,  10) 

R*4 

HTRUE 

(240,  10) 

1*4 

lAMP 

(8,  45) 

1*4 

IDIST 

(8,  45) 

1*4 

IDLAY 

(8,  45) 

1*4 

ILAYIO 

(45,  10) 

1*4 

I LAYER 

(180) 

1*4 

JNUM 

(10) 

1*4 

JS 

(4,  45) 

R*4 

RD 

(10) 

R*4 

SUN 

(2,  12) 

Subroutines  and  Functions  Referenced: 
ESDIS  R*4  GAUSS 


R*4  MTH$ALOG 


R*4 


MTHSCO 
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Module:  SETPLT 

CALL;  SUBROUTINE  SETPLT  (INT) 

Call  arguments: 

INT  set  page  of  figure  being  plotted 

**  return  value 

Purpose:  Plot  control  routine  that  sets  up  variables  to  be  plotted 


Included  Commons:  Size  (4  byte  words) 


ANT 

( 

180) 

APLT 

( 

60) 

CINl 

( 

640) 

CUSP 

( 

1120) 

DAT 

( 

192) 

ES 

( 

120) 

POLO 

( 

7920) 

GEOG 

( 

388) 

HOP 

( 

4) 

INP 

( 

72) 

ION 

( 

436) 

LUNITS 

( 

48) 

MIMSY 

( 

2520) 

PLT 

( 

5080) 

PLTAB 

( 

11992) 

RAOR 

( 

16) 

SLS 

( 

88) 

Entry  points:  SETPLT 

Variables: 

R*4 

ADEL 

R*4 

AK 

R*4 

ASKP 

R*4 

AZMTH 

R*4 

BK 

R*4 

BWIDTH 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

CKC 

R*4 

COND 

R*4 

DADD 

R*4 

DEL 

R*4 

DELINC 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

EPR 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GAIN 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

1*4 

I 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

IDT 

1*4 

lES 

1*4 

lEXD 

1*4 

IFR 

1*4 

IFX 

1*4 

IGND 

1*4 

IMONS 

1*4 

INT 

1*4 

IPWUS 

1*4 

IQRT 

1*4 

IRAN 

1*4 

IREFF 

1*4 

I  SNR 

1*4 

ISNRMX 

1*4 

ISSN 

1*4 

IT 

1*4 

IZER 

1*4 

J 

1*4 

JDIM 

1*4 

JJ 

1*4 

JL 

1*4 

K3 

1*4 

KCP 

1*4 

KMAX 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIMHOP 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

NDOT 

1*4 

NS 

R*4 

PI2 

R*4 

PWID 

Arrays; 

R*4 

ABIY 

(10) 

R*4 

AGAIN 

(45) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

AMP 

(8, 

45) 

R*4 

AMPCP 

(4/ 

10) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 
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SETPLT  (cont.) 


R*4 

CLONG 

(10) 

R*4 

CNR 

(8,  45) 

R*4 

DELCP 

(4,  10) 

R*4 

DELH 

(10,  45) 

R*4 

DEL  I 

(10,  45) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

FEC 

(10) 

R*4 

FOES 

(10,  3) 

R*4 

FREL 

(15) 

R*4 

FVCP 

(4,  10) 

R»4 

GDI  ST 

(4,  10) 

R*4 

GLAT 

(10) 

R*4 

GMDIP 

(10) 

R*4 

GY 

(10) 

R*4 

HE 

(10) 

R*4 

HFl 

(10) 

R*4 

HF2 

(10) 

1*4 

lAMP 

(8,  45) 

1*4 

lAMPCP 

(4,  10) 

1*4 

IDIST 

(8,  45) 

1*4 

IDLAY 

(8,  45) 

1*4 

IDLYCP 

(4,  10) 

1*4 

IDSTCP 

(4,  10) 

1*4 

IGDLCP 

(4,  10) 

1*4 

ILAYIO 

(45,  10) 

1*4 

ILAYER 

(180) 

1*4 

ILY 

(4,  10) 

1*4 

ISCLS 

(5,  2) 

1*4 

ITIM 

(5,  2) 

1*4 

JNUM 

(10) 

1*4 

JS 

(4,  45) 

1*4 

LANG 

(333,  3) 

1*4 

LLAYER 

(333,  3) 

1*4 

LSNR 

(333,  3) 

R*4 

PSC 

(4) 

R*4 

RAT 

(10) 

R*4 

RO 

(10) 

R*4 

SDELAY 

(4,  10) 

R*4 

SNR 

(8,  45) 

Subroutines  and  Functions  Referenced: 

ALLFRQ  AMPLOT  ESTERP  INTERP 
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Module:  SIGNT 


CALL:  SUBROUTINE  SIGNT  (SIGNOT) 

Call  Arguments: 

SIGNOT  backscatter  coeficient  adjustment  (currently  10**-2.9) 
**  return  value 

Purpose:  adjusts  the  backscatter  coefficient 

Included  Commons : 
no  user  defined  commons 

Entry  points:  SIGNT 

Variables: 

R*4  DB  R*4  SIGNOT  R*4  X 
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Module:  SLANTY 


CALL;  SUBROUTINE  SLANTY ( lomuf) 

Call  Arguments: 

**  LOMUF  flag  to  signal  over-the-MUF  propagation  has  occurred. 

**  return  value 

Purpose:  Gathers  all  informantion  on  modes, losses,  and  environmental  noise, 

and  puts  it  in  the  form  of  the  radar  equation.  Also  gets  the  spread 
Doppler  clutter  by  a  call  to  ABILITY.  Finds  the  raysets  for  the  E, 
FI,  and  F2  layers.  This  routine  gathers  all  results  and  puts  them  in 
the  form  of  radar  equation. 


Included  Commons:  Size  (4  byte  words) 


ANT 

( 

368) 

APLT 

( 

60) 

CPTEST 

( 

3000) 

DAT 

( 

192) 

FOLO 

( 

9360) 

GEOG 

( 

388) 

GROUND 

( 

720) 

HGH 

( 

28800) 

HOP 

( 

4) 

I  LOS 

{ 

2880) 

INP 

( 

92) 

ION 

( 

368) 

PLT 

( 

3640) 

RADR 

( 

16) 

TIME 

( 

23) 

TTSIZE 

( 

180) 

AVAIL 

INP 

( 

112) 

MIMSY 

( 

2520) 

RAD2AVA 

{ 

40) 

PIR 

( 

24) 

OVAL 

( 

8) 

Entry  points:  SLANTY 

Variables: 

R*4 

ABPSl 

R*4 

ABSAl 

R*4 

ABSB 

R*4 

ADEL 

R*4 

ADEV 

R*4 

ADJ 

R*4 

ADVO 

R*4 

AK 

R*4 

AMP ANT 

R*4 

ANOISE 

R*4 

AREA 

R*4 

AZMTH 

R*4 

AZRAD 

R*4 

BANDW 

R*4 

BANDWO 

R*4 

BK 

R*4 

BMONS 

R*4 

BWIDTH 

R*4 

C180 

R*4 

C360 

R*4 

CIT 

R*4 

CK 

R*4 

CKC 

R*4 

CLOCK 

R*4 

COND 

CHAR 

DATETIME 

R*4 

DEL 

R*4 

DELINC 

R*4 

DINC 

R*4 

DK 

R*4 

DUMMY 

R*4 

DWR 

R*4 

ECLUT 

R*4 

ECLUTO 

R*4 

EEK 

R*4 

EK 

R*4 

EPR 

R*4 

ETA 

R*4 

F2C 

R*4 

FC 

R*4 

FCLUT 

R*4 

FCLUTO 

R*4 

FMUF 

R*4 

FNOISE 

R*4 

FREQ 

R*4 

GAIN 

R*4 

GCD 

R*4 

GCDRAD 

R*4 

GLG 

R*4 

GMT 

R*4 

GT 

R*4 

HANG 

R*4 

HEIGHT 

R*4 

HP 

R*4 

HWIDTH 

1*4 

I 

1*4 

12 

1*4 

lANT 

1*4 

lAZMTH 

1*4 

IBCL 

1*4 

IDUM 

1*4 

lEXD 

1*4 

IFR 

1*4 

IGND 

1*4 

IK 

1*4 

IMUF 

1*4 

IPWUS 

1*4 

IQRT 

1*4 

I  SNR 

1*4 

ISSN 

1*4 

I START 

1*4 

IT 

1*4 

lYEAR 

1*4 

J 

1*4 

JDIN 

1*4 

JEND 

20R 


I 


SLANTY  ( cont . ) 


1*4 

JHOP 

1*4 

JUG 

R*4 

KFAC 

R*4 

KFACO 

1*4 

KMAX 

1*4 

KNT 

R*4 

LAMLOG 

R*4 

LAMSQ 

1*4 

LIMHOP 

1*4 

LOMUF 

1*4 

LSCAN 

1*4 

LSCANO 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

CHAR 

MMODES 

1*4 

MONS 

1*4 

MYR 

1*4 

NFAC 

1*4 

NFG 

1*4 

NHOPS 

1*4 

NRSCANS 

1*4 

NSC 

R*4 

OBF 

R*4 

OMUF 

R*4 

ORTANG 

R*4 

OTH 

R*4 

P 

R*4 

PHE 

R*4 

PI 

R*4 

PINC 

R*4 

PITW 

R*4 

PKAVG 

R*4 

PROBE 

R*4 

PROBF 

R*4 

PT 

R*4 

PVBAR 

R*4 

PWID 

R*4 

PWR 

R*4 

R4TH 

R*4 

RANGE 

R*4 

RAY 

R*4 

RBORE 

R*4 

RCSDEL 

R*4 

RGLAT 

R*4 

RGLON 

R*4 

RLAT 

R*4 

RLATRAO 

R*4 

RLON 

R*4 

RLONRAD 

R*4 

RXANTL 

R*4 

RXNF 

R*4 

RZ 

R*4 

SCLOS 

R*4 

SCVLIM 

R*4 

SCVLM 

R*4 

SECPHE 

R*4 

SIGBAK 

R*4 

SIGLOG 

R*4 

SIGMAC 

R*4 

SI  PHE 

R*4 

SLANT 

R*4 

SLAT 

R*4 

SLATRAD 

R*4 

SLON 

R*4 

SLONRAD 

R*4 

SNOISE 

R*4 

SPLOS 

R*4 

SSN 

R*4 

TAR 

R*4 

TARS I Z 

R*4 

TCPDB 

R*4 

TCS 

R*4 

TIMEIT 

R*4 

TIMLOG 

R*4 

TNOISE 

R*4 

TOA 

R*4 

TODSTART 

R*4 

TODSTEP 

R*4 

TODSTOP 

R*4 

VC 

R*4 

WT 

R*4 

WTO 

R*4 

XI 

R*4 

X2 

R*4 

XKP 

R*4 

XXKP 

R*4 

Y1 

R*4 

Y2 

R*4 

Z 

R*4 

ZK 

Arrays: 

R*4 

ABIY 

(10) 

R*4 

ADV 

(4, 

45) 

R*4 

AFAC 

(240 

,  10) 

R*4 

AGAIN 

(45) 

R*4 

ALCX)K 

(6) 

Subroutines  and 

Functions 

Referenced: 

ABILITY_V3 

CGMCS 

CHANY 

cord: 

R*4 

MTHSALOGIO 

R*4 

MTH$ASIN 

R*4 

MTH$COS 

R*4  MTH$SQ 
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Module:  SNRPRT 


CALL:  SUBROUTINE  SNRPRT 


Purpose:  Routine  that  sets  up  variables  and  prints  the  tabular  output 


Included  Commons: 
ALLAMP 
APLT 
INP 

LUNITS 

RADR 

Entry  points:  SNRPRT 


Size  (4  byte  words) 

(  10656) 

(  36) 

(  88) 

(  48) 

(  12) 


Variables: 


R* 

AZMTH 

R*4 

BMONS 

R*4 

BWIDTH 

R*4 

FREQ 

R*4 

FREQQ 

R*4 

GMT 

1*4 

I 

1*4 

lAZMTH 

1*4 

lEXD 

1*4 

I  GMT 

1*4 

IGND 

1*4 

I  SNR 

1*4 

ISSN 

1*4 

IVAL 

1*4 

IZZZ 

1*4 

J 

1*4 

KMAX 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

LSEMl 

1*4 

LTAR 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

1*4 

NC 

1*4 

NLAT 

1*4 

NLON 

1*4 

NS 

1*4 

NSYM 

R*4 

OTH 

R*4 

PKAVG 

R*4 

PWID 

R*4 

PWP 

R*4 

PWR 

R*4 

RANGE 

R*4 

SSN 

R*4 

TAR 

R*4 

TIMEIT 

R*4 

TIMLOG 

R*4 

TXLAT 

R*4 

TXLON 

R*4 

XI 

R*4 

X2 

R*4 

Yl 

R*4 

Y2 

Arrays : 


R*4 

ALOOK 

(6) 

1*4 

LAYSMB 

(333, 

4) 

1*4 

LAYSNR 

(333, 

4) 

1*4 

NNLAT 

(2) 

1*4 

NNLON 

(2) 

R*4 

SNR 

(333) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$ALOG10 
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Module:  SOLR 


CALL:  FUNCTION  SOLR(NY,ND,UT) 

Call  Arguments: 

NY  year  including  century 
ND  day  of  year 
UT  universal  time  in  hours 

**  return  value 

Purpose:  Updates  orbital  elements  of  of  epoch 

Included  Commons:  Size  (4  byte  words) 

SOL  (  56) 

Entry  points:  SOLR 


Variables: 


R*4 

CCG 

R*4 

COB 

R*4 

DC 

R*4 

DE 

R*4 

DEC 

R*4 

DES 

R*4 

DJ 

R*4 

DL 

R*4 

DP 

R*4 

EC 

R*4 

EO 

R*4 

EOB 

R*4 

EQT 

R*4 

FUT 

R*4 

GHA 

R*4 

HTR 

1*4 

K 

1*4 

L 

1*4 

ND 

1*4 

NY 

R*4 

PD2 

R*4 

PHS 

R*4 

PI 

R*4 

PI2 

R*4 

PO 

R*4 

R2D 

R*4 

SE2 

R*4 

SEC 

R*4 

SL 

R*4 

SLG 

R*4 

SMA 

R*4 

SML 

R*4 

SOB 

R*4 

SOL 

R*4 

SPG 

R*4 

SRA 

R*4 

SSG 

R*4 

THS 

R*4 

UT 

R*4 

UTR 

R*4 

YX 

Subroutines  and 

Functions 

Referenced: 

R*4 

FKEP 

R*4 

MTH$ASIN 

R*4 

MTH$ATAN2 

R*4  MTH$CO 

211 


Module:  SORT 

CALL:  SUBROUTINE  SORT  (ARRAY, INDEX, NPTS) 

Call  Arguments: 

ARRAY  data  array  to  be  sorted,  dimensioned  array (npts) 

**  INDEX  index  generated  for  array,  dimensioned  index (npts) 

NPTS  dimension  of  array,  index 

**  return  value 

Purpose:  Sorts  ARRAY,  returning  an  index  to  sorted  values 

Included  Commons: 
no  user  defined  commons 

Entry  points :  SORT 

Variables: 

1*4  I  1*4  ITEMP  1*4  J  1*4  K 

1*4  L  1*4  N  1*4  NPTS 

Arrays : 

@  R*4  ARRAY  (*) 

0  1*4  INDEX  (*) 
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Module:  SYSSY 


CALL:  SUBROUTINE  SYSSY  (G, I ,P,NN, FM) 

Call  Arguments: 

G  geomagnetic  latitude,  radians 

I  month 

P  local  mean  time  at  sample  area 

NN  not  used 

**  FM  auroral  loss,  dB 

**  return  value 

Purpose:  Determines  auroral  loss  from  tables 

Included  Commons:  Size  (4  b/te  words) 

DUD  (  1248) 

Entry  points:  SYSSY 

Variables: 

R*4  FM  R*4  G  R*4  GG  1*4  1 

1*4  KJ  1*4  LJ  1*4  NN  R*4  P 

Arrays: 

R*4  FAM  (14,  12) 

R*4  SYS  (9,  16) 
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Module:  TARGET 


CALL:  SUBROUTINE  TARGET (FREQQ, HANG, TYPE) 

Call  Arguments: 

FREQQ  operating  frequency,  mhz 

HANG  horizontal  angle  of  the  ray  for  type  -3,  degrees 

TYPE  positive  is  the  target  size  in  dbsm,  negative  is: 

-1.0  is  an  aircraft 
-2.0  is  other  #1 
-3.0  is  other  #2 

**  return  value 

Purpose:  Computes  the  target  size  in  dB  above  1  meter~  . 

Included  Commons:  Size  (4  byte  words) 

TTSIZE  (  180) 


Entry  points:  TARGET 


Variables: 

R*4  ADEL 

R*4 

ANGLE 

R*4 

AZR 

R*4 

AZRO 

R*4 

AZV 

R*4 

AZVD 

R*4 

COSRMA 

R*4 

DTOR 

R*4 

ELL 

R*4 

ELR 

R*4 

ELRD 

R*4 

ELV 

R*4 

ELVD 

R*4 

FDEL 

R*4 

FREQ 

R*4 

FREQQ 

R*4 

HANG 

1*4 

lA 

1*4 

lAHI 

1*4 

lALO 

1*4 

IFHI 

1*4 

I  FLO 

R*4 

PI 

R*4 

RMA 

R*4 

RTOD 

R*4 

SIZE 

R*4 

THIA 

R*4 

TLOA 

R*4 

TMIN 

R*4 

TTAB 

R*4 

TYPE 

R*4 

XM 

R*4 

XR 

R*4 

YM 

R*4 

YR 

R*4 

ZN 

R*4  ZR 

Arrays : 

R*4  TABl 

R*4  TAB2 

R*4  TABLE 

R*4  TSIZE 

R*4  VMIN 

(26, 

(26, 

(26, 

(45) 

(26) 

4) 

4) 

8) 

Subroutines  and  Functions  Referenced: 

R*4  MTH$ACOS  R*4  MTHSALOG  R*4  MTHSAMOD  R*4  MTH$AS 
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Module:  TAYLOR 

CALL:  SUBROUTINE  TAYLOR  (G,NG,F,NF,A) 

Call  Arguments: 

*•  G  array  of  weights 

NG  dimension  of  G  (15) 

F  workspace 

NF  dimension  of  F  (5) 

A  base  (1.4) 

**  return  value 

Purpose:  calculate  taylor  series  weights  for  ant09  subroutine. 

Included  Commons: 
no  user  defined  commons 

Entry  points:  TAYLOR 


Variables: 


R*4 

A 

R*4 

ANG 

R*4 

BN 

R*4 

D 

R*4 

GA 

R*4 

GN 

1*4 

I 

1*4 

M 

1*4 

N 

1*4 

NB 

1*4 

NF 

1*4 

NG 

1*4 

N02 

R*4 

PI 

R*4 

RI 

R*4 

RM 

R*4 

RN 

R*4 

SIG2 

Arrays: 

e  R*4  F  (*) 

e  R*4  G  {*) 

Subroutines  and  Functions  Referenced: 
R*4  MTHSASIN  R*4  MTH$COS 
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Module:  TIMVAR 


CALL:  SUBROUTINE  TIMVAR 


Purpose: 


Calculates  time  dependence  of  the  numerical  maps  of  ionospheric 
variables . 


24) 

192) 

340) 

68) 

436) 


Included  Commons: 

Size  (4 

All 

( 

DAT 

( 

GEOG 

{ 

INP 

( 

ION 

( 

Entry 

points:  TIMVAR 

Variables: 

R*4 

ABI 

R*4  AK 

R*4 

C180 

R*4  C360 

R*4 

CK 

R*4  CKC 

R*4 

CYCEN 

R*4  DEBUG 

Arrays: 

R*4 

ABIY 

(10) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R»4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

FlC 

(10) 

R*4 

F2C 

(10) 

R*4 

FEC 

(10) 

R*4 

FREL 

(15) 

R*4 

GAMMA 

(6) 

R*4 

GLAT 

(10) 

R*4 

GY 

(10) 

R*4 

HE 

(10) 

R*4 

HFl 

(10) 

R*4 

HF2 

(10) 

1*4 

MONN 

(13) 

R*4 

PSC 

(4) 

R*4 

RAT 

(10) 

R*4 

RD 

(10) 

R*4 

SUN 

(2,  12) 

R*4 

YME 

(10) 

R*4 

YMFl 

(10) 

R*4 

YMF2 

(10) 

Subroutines  and  Functions  Referenced: 

EFIVAR 

R*4  MTHSACOS 

R*4 

YMAP 

AZMTH 

CENLAT 

CLOCK 

DJR 


BK 

CENLG 

COLO 

DK 


R*4  MTH$COS 


R*4  MTH$EX 
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Module:  VERSY 


CALL;  SUBROUTINE  VERSY  (KIK,LIK,POLE, II,CLOCK) 

Call  Arguments: 

KIK  start  index  for  coefficient  array 

LIK  stop  index  for  coefficient  array 

POLE  not  used 

II  sample  area  selected 

CLOCK  array  of  local  mean  time  at  sample  areas 

**  return  value 

Purpose:  Calculates  geographic  variation  of  the  numerically  mapped 

ionospheric  variables. 

Included  Commons;  Size  (4  byte  words) 

All  (  264) 

DAT  (  192) 

GEOG  (  388) 

WMAPS  (  1824) 

Entry  points:  VERSY 

Variables: 


R*4 

AK 

R*4 

BK 

R*4 

C180 

R*4 

C360 

R*4 

CENLAT 

R*4 

CENLG 

R*4 

CK 

R*4 

CKC 

R*4 

CLG 

R*4 

CLOCK 

R*4 

COND 

R*4 

CX 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

EPR 

R*4 

FJ 

R*4 

GLG 

R*4 

GLT 

R*4 

GOB 

1*4 

I 

1*4 

II 

1*4 

lO 

1*4 

J 

1*4 

JB 

1*4 

JG 

1*4 

K 

1*4 

KA 

1*4 

KOIF 

1*4 

KIK 

1*4 

KK 

1*4 

LIK 

1*4 

LO 

R*4 

PI2 

R*4 

POLE 

R*4 

RZ 

R*4 

sx 

R*4 

T 

R*4 

X 

R*4 

Y 

Arrays: 

R*4 

AB 

(76, 

6) 

R*4 

ABIY 

(10) 

R*4 

AMON 

(12) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$COS  R*4  MTH$SIN 


Module:  VERTIM 

CALL;  SUBROUTINE  VERTIM 

Purpose:  Calculates  the  time  variation  of  ionospheric  variables  for  sample 


areas. 

Included  Commons: 

Size 

(4  byte  words) 

All 

( 

264) 

A3 

( 

23712) 

DAT 

( 

192) 

INP 

( 

68) 

WMAPS 

{ 

1824) 

Entry 

points:  VERTIM 

Variables: 

R*4 

AK 

R*4 

AZMTH 

R*4 

BK 

R*4 

C180 

R*4 

C360 

R*4 

CK 

R*4 

DK 

R*4 

EEK 

R*4 

EK 

R*4 

GLG 

R*4 

GLT 

R*4 

GMT 

1*4 

I 

1*4 

ICCP 

1*4 

lEXD 

1*4 

lO 

1*4 

J 

1*4 

JB 

1*4 

K 

1*4 

KA 

1*4 

MAN 

1*4 

METH 

1*4 

METHOD 

1*4 

MONS 

R*4 

PI2 

R*4 

RZ 

R*4 

SSN 

R*4 

TIME 

R*4 

XI 

R*4 

Y1 

Arrays: 

R*4 

AB 

(76, 

6) 

R*4 

ALOOK 

(6) 

R*4 

AMON 

(12) 

R*4 

C 

(8) 

R*4 

D 

(13, 

76,  6) 

R*4 

GAMMA 

(6) 

1*4 

KQ 

(6, 

10) 

R*4 

S 

(8) 

R*4 

SUN 

(2, 

12) 

Subroutines  and  Functions  Referenced: 
R*4  MTH$COS  R*4  MTH$SIN 
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Module:  VPLOT 

CALL;  SUBROUTINE  VPLOT  (JPT,L) 

Call  Arguments: 

JPT  task  flag 

JPT  >  0  Printout  vertical  ionograms 

JPT  =  0  Printout  absorption  loss  factor  vs.  frequency 
L  sample  area  selector 

**  return  value 

Purpose:  Print  vertical  ionograms  in  fortran  unit  30 


Included  Commons:  Size  (4  byte  words) 


APLT 

( 

20) 

A2 

( 

432000) 

ES 

( 

160) 

GEOG 

( 

388) 

HGH 

( 

28800) 

ION 

( 

360) 

INP 

( 

28) 

LUNITS 

( 

48) 

Entry 

points:  VPLOT 

Variables: 

R*4 

AZMTH 

1*4 

BLANK 

R*4 

CKC 

R*4 

COND 

R*4 

EPR 

R*4 

FREQ 

R*4 

BLOWER 

R*4 

HUPPER 

1*4 

I 

1*4 

lAZMTH 

1*4 

IFREQ 

1*4 

IFX 

1*4 

II 

1*4 

IK 

1*4 

IMONS 

1*4 

IR 

1*4 

ISSN 

1*4 

IT 

1*4 

J3 

1*4 

JJ 

1*4 

JPT 

1*4 

K 

1*4 

L 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LI 

1*4 

LIONO 

1*4 

LNAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

LOUT2 

1*4 

LOUT3 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

NBLANK 

1*4 

NELAY 

1*4 

PLUS 

1*4 

STAR 

1*4 

XMINUS 

Arrays: 

R*4 

ABIY 

(10) 

R*4 

AFAC 

(240, 

10) 

1*4 

B 

(51) 

1*4 

BB 

(6) 

1*4 

C 

(51) 

R*4 

CLAT 

(10) 

R*4 

CLCK 

(10) 

R*4 

CLONG 

(10) 

R*4 

DUMMY 

(6) 

1*4 

F 

(240) 
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Module:  XFR3 

CALL:  SUBROUTINE  XFR3(ARG,R) 

Call  Arguments: 

ARG  array  of  3  values: 

arg(l)  colatitude  of  new  pole  in  radians 
arg(2)  east  longitude  of  new  pole  in  radians 

arg(3)  azimuth  wrt  new  pole  of  new  prime  meridian  in  radians 
R  computed  rotation  matrix  element 

**  return  value 

Purpose:  Computes  rotation  matrix  element 

Included  Commons: 
no  user  defined  commons 

Entry  points:  XFR3 

Variables: 

1*4  I  R*4  R1  R*4  R2  R*4  R3 

R*4  R4 

Arrays : 

@  R*4  ARG  (3) 

R*4  C  (3) 

e  R*4  R  (3,  3) 

R*4  S  (3) 

Subroutines  and  Functions  Referenced: 

R*4  MTH$COS  R*4  MTH$SIN 
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Module:  XLIN 


CALL:  FUNCTION  XLIN  (Y, YN,K,DELX,NTAB, JK) 

Call  Argument s : 

Y  value  to  interpolate  from  YN 
YN  table  of  values  to  interpolate  from 
K  index  to  second  dimension  of  tabe  YN 

DELX  increments  in  YN  index  variable 

NTAB  first  dimension  of  YN 

JK  task  flag 

JK  =  1,  interpolate  for  dependent  variable  (conventional  linear 
interpolation) 

JK  =  2+  look  up  independent  variable  from  a  known  value  of  the 
dependent  variable  (conventional  look-up) 

**  return  value 

Purpose:  Perform  linear  interpolation  on  a  table  of  values,  or  use  the  table 

of  values  to  perform  a  look  up  (inverse  interpolation). 

Included  Commons: 
no  user  defined  commons 

Entry  points;  XLIN 

Variables: 


R’*4 

DELX 

1*4 

IS 

1*4 

ISMAX 

1*4 

ISMIN 

1*4 

lY 

1*4 

J 

1*4 

JK 

1*4 

K 

1*4 

NMINl 

1*4 

NSRT 

1*4 

NTAB 

R*4 

XN 

R*4  Y  R*4  YZ 

Arrays : 

@  R*4  YN  (1) 
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Module:  YMAP 


CALL:  REAL  FUNCTION  YMAP  (  CLOCK,  GMLAT,  SSN,  MONTH,  DEBUG) 

Call  Arguments: 

CLOCK  local  mean  time  at  a  sample  area 

GMLAT  geomagnetic  west  latitude,  degrees 

SSN  running  average  sunspot  number  index  of  solar  activity 

MONTH  integer  month 

DEBUG  debug  flag;  debug  output  to  fortran  unit  34  generated  for  a  value 

of  0 

**  return  value 

Purpose:  Calculates  the  F2-layer  semi-thickness  from  numerical  coefficients 

Included  Commons: 

LUNITS  (  48) 

Entry  points:  YMAP 


Variables: 


R*4 

CLOCK 

R*4 

DEBUG 

R*4 

GEOLAT 

R*4 

GMLAT 

1*4 

IC 

1*4 

ICl 

1*4 

IC2 

1*4 

IG 

1*4 

IGl 

1*4 

IG2 

1*4 

lOSTAT 

1*4 

I  SUN 

1*4 

IX 

1*4 

lY 

1*4 

JMON 

1*4 

LANT 

1*4 

LCON 

1*4 

LGEO 

1*4 

LIONO 

1*4 

LMAP 

1*4 

LNOISE 

1*4 

LOUTl 

1*4 

L0UT2 

1*4 

LOUT  3 

1*4 

LSCRT 

1*4 

LSEMI 

1*4 

LTAR 

1*4 

MONTH 

L*4 

READ 

R*4 

SSN 

R*4 

YM 

R*4 

YMll 

R*4 

YM12 

R*4 

YM21 

R*4 

YM22 

R*4 

YMAPl 

R*4 

YMAP2 

Arrays 

• 

• 

L*1 

MAPBYT 

(0: 

24,  0:18 

Subroutines  and  Functions  Referenced: 
FOR$CLOSE  FOR$OPEN 
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Module:  ZERO 


CALL:  SUBROUTINE  ZERO 


Purpose:  Clears 

arrays  which  may 

contain  data 

not  wanted 

Included  Commons: 
ALLAMP 

( 

10656) 

Entry  points:  ZERO 

Variables: 

1*4  I 

1*4  J 

1*4 

NBLANK 

Arrays: 

1*4  LAYSMB 

1*4  LAYSNR 

(333,  4) 

(333,  4) 
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